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I . INTRODUCTION 

Finite  integration  techniques  are  commonly  employed  to  numerically 
solve  mathematical  models  of  physical  problems,  when  the  essential  fea- 
tures of  the  model  preclude  exact  analytic  solutions.  Nayfeh  (1)  points 
out  that  these  features  include  nonlinearities,  variable  coefficients, 
complex  boundary  shapes  and  nonlinear  boundary  conditions  at  known  or, 
in  some  cases,  unknown  boundaries.  In  the  case  of  magnetohydrodynamics 
or  gasdynamics,  all  of  the  above  undesirable  features  exist  and  must  be 
treated. 

The  primary  objective  of  this  dissertation  is  to  solve  the  viscous 
gasdynamic  and  electromagnetic  equations  of  motion  in  their  most  funda- 
mental form.  The  numerical  approach  selected  is  finite  differencing. 
Naturally,  a numerical  solution  to  these  complex  and  highly  nonlinear 
coupled  partial  differential  equations  will  place  the  greatest  burden 
on  the  computer;  however,  when  considering  the  futility  of  employing 
other  non-discretized  approaches  to  meeting  the  same  objective  the 
demands  placed  on  the  computer  become  less  significant. 

1 . 1 Motivation 

The  need  for  investigating  the  behavior  of  a conducting  fluid, 
both  experimentally  and  theoretically,  has  been  well  established  over 
the  past  few  decades.  However,  a review  of  the  literature  relevant 
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to  magnetohydrodynamic  technology  (Section  1.2)  reveals  that  the  progress 
by  computational  magnetohydrodynamic is ts  has  been  somewhat  limited. 

The  major  obstacles  to  the  development  of  a numerical  approach  for 
solving  the  equations  which  govern  MHD  flow  were: 

(1)  small  and  slow  computers  unable  to  accommodate  the  demands 
of  most  numerical  integration  techniques;  and 

(2)  a lack  of  accurate  and  converging  finite  difference  schemes 
describing  the  equations  governing  MHD  phenomena. 

The  primary  objective  of  this  dissertation  is  to  develop  a numer- 
ical procedure  for  investigating  the  complex  and  highly  nonlinear  hy- 
drodynamic, viscous  and  electromagnetic  behavior  of  a conducting  fluid. 
Emphasis  was  placed  on  the  transient  coupling  between  the  gasdynamic 
and  electromagnetic  fields.  A two-dimensional  finite  difference  tech- 
nique was  developed  to  model  the  transient  behavior  of  this  fluid. 

Traditional  methods  for  solving  inviscid  or  viscous  problems  such 
as  the  method  of  characteristics  (hyperbolic  system)  or  similarity 
solution  and  asymptotic  expansions  suffer  from  a lack  of  generality 
and  are  restricted  by  limiting  assumptions,  neglected  terms  and  inexact 
linearization  of  the  original  governing  equations.  Further,  shocks 
or  subsonic/supersonic  regions  have  to  be  treated  separately  and  create 
problems  associated  with  matching  solutions  derived  by  different  methods 
as  well  as  cumbersome  bookkeeping  in  satisfying  the  Rankin  e-Hu  g on  iot. 
relations  across  the  shock.  If  the  viscous  and  inviscid  calculations 
are  performed  separately,  a priori  information  is  required  as  the  exact 
location  of  the  boundary  separating  the  two  regions  and  may  lead  to 
inconsistencies  if  improperly  matched. 
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A discretization  approach  to  the  equations  of  motion  in  the  form  of 
finite  difference  expressions  has  significant  advantages  over  the  pre- 
viously mentioned  techniques.  Namely,  this  method  is  consistent 
throughout  all  flight  regimes,  subsonic  through  hypersonic,  and  treats 
the  viscous  and  inviscid  regions  in  identical  fashion.  The  time- 
dependent  problem  is  considered  where  some  initial  set  of  conditions  are 
imposed  and  the  steady-state  solution  is  generated  as  the  limiting  case. 
Shocks  or  discontinuities*  develop  naturally  from  imposed  boundary  con- 
ditions and  the  Rankine-Hugoniot  equations  are  automatically  satisfied 
as  would  be  expected  since  they  are  expressions  of  the  conservation 
equations  approximated  by  finite  difference  terms.  Nonlinear  terms 
present  no  additional  complexity  if  treated  explicitly  (Section  1.3) 
even  when  property  values  are  a function  of  state  values.  The  interac- 
tion of  gas  dynamic  and  electromagnetic  fields  is  numerically  treated 
simultaneously  and  eliminates  the  need  for  solving  each  independently 
and  then  iterating  both  fields  to  a compatible  and  converging  solution. 

Dealing  directly  with  the  equations  of  motion  through  the  finite 
difference  equations,  the  hydrodynamicist  becomes  a spectator**  to  the 
influence  of  the  physical  laws  of  nature  on  the  dynamic  behavior  of 
fluids  as  opposed  to  other  techniques  where  the  physical  processes  are 
obscured  by  mathematical  abstractions,  substitutions  and  approximations. 

*"Numerical  diffusion"  is  inherent  in  all  discretization  methods  and 
tends  to  spread  or  smear  discontinuities  over  at  least  two  cells. 
Although  the  shock  thickness  is  unrealistic,  the  jump  conditions 
before  and  after  the  shock  are  quite  accurate. 

**Employing  adequate  computer  graphics  (vector,  contour,  shading  plots; 
computer  movies) , the  user  "observes”  the  occurrence  of  the  phenome- 
non without  having  to  resort  to  cumbersome  data  reduction  and  analysis. 
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The  primary  disadvantage  of  hydrocodes*  is  that  the  numerical  procedure 
is  costly  in  computer  time  and  in  some  cases  computer  storage. 

Analytic  investigations  reduces  a physical  phenomenon  to  a set  of 
mathematical  equations  with  appropriate  boundary  and/or  initial  con- 
ditions. The  MHD  generator  problem  is  composed  of  many  interacting 
phenomena,  each  of  which  if  treated  independently  would  constitute 
significant  mathematical  problems  in  the  areas  of  thermodynamics,  heat 
transfer,  boundary  layer  theory,  electromagnetism,  aerodynamics,  fluid 
mechanics  and  energy  conversion.  The  MHD  generator  problem  was  chosen 
because  it  not  only  represents  one  of  the  more  severe  challenges  to  a 
finite  difference  technique,  but  the  results  of  such  a program  would 
also  benefit  the  progress  made  in  MHD  power  technology. 

1 . 2 Previous  Calculations 

Although  the  past  two  decades  have  seen  progress  in  the  development 
of  magnetohydrodynamic  technology  mostly  through  experimentation, 
analytic  models  developed  since  1957  have  contributed  in  varying  degrees 
to  present  understanding  of  the  interaction  between  gasdynamic  and 
electromagnetic  forces.  Initially,  attention  was  focused  on  MHD 
accelerators  with  interest  directed  toward  aerospace  or  military  appli- 
cation. More  recently,  interest  has  centered  on  the  use  of  MHD  power 
generators  to  increase  the  efficiency  of  extracting  energy  from  natural 
resources . 

The  performance  of  an  MHD  generator  in  converting  thermal /kinetic 
energy  into  electrical  energy  is  significantly  influenced  by  thermo- 

*A  finite  difference  computer  program  solving  the  inviscid  equations 
of  motion. 
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dynamic/hydrodynamic  effects  of:  compressibility,  viscosity,  shocks, 
heat  transfer,  non-scalar  conductivity  and  Hall  current  in  addition 
to  electrode  and  material  performance  and  such  design  aspects  as  size, 
configuration  and  geometry.  Accurate  modeling  of  a generator  must  take 
into  account  the  above  phenomenon. 

The  fundamental  difficulty  in  developing  a computational  model  for 
predicting  magnetohydrodynamic  phenomena  is  the  coupling  of  equations 
governing  both  the  gas  dynamic  flow  and  the  electromagnetic  (EM)  fields. 
Since  the  flow  fields  affect  the  EM  fields  and  vice-versa,  the  non- 
linear partial  differential  equations  must  be  solved  simultaneously  and 
stability  and  convergence  of  the  solutions  become  greatly  complicated 
(Figure  1) . 

Approaches  to  solving  MHD  problems  have  consisted  of  the  following: 

(A)  One-dimensional  "influence  coef f icients 

(B)  One-dimensional  closed  form  analytic  solutions  to  ordinary 
differential  equations. 

(C)  Similarity  transformation  and  closed  form  solutions  to  a 
modified  differential  equation  in  one  or  two  dimensions. 

(D)  One-,  two-,  and  three-dimensional  numerical  solution  to  the 
uncoupled  steady  MHD  equations. 

(E)  One-,  two-,  and  three-dimensional  numerical  solution  to  the 
coupled  steady  MHD  equations  using  either  the  magnetic 
induction  equation  or  the  elliptic  equation  governing  the 
electric  fields  and  currents. 

(F)  One-,  two-,  and  three-dimensional  transient  numerical  solu- 
tion to  the  coupled  MHD  equations  using  either  the  magnetic 
induction  equation  or  the  elliptic  equation. 
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Methods  (A) , (B)  and  (C)  are  exact  but  are  restricted  to  a narrow 
range  of  problems.  Approaches  (D)  and  (E)  provide  rapid  convergence 
to  a steady  state  solution  but  do  not  consider  the  transient  behavior 
between  the  gas  dynamic  and  electromagnetic  fields,  or  sometimes  the 
strong  coupling  between  the  two  sets  of  fields.  The  last  method,  (F) , 
is  desirable  since  it  treats  a wide  range  of  problems,  it  suffers, 
however,  from  large  computational  times. 

A literature  survey  was  performed  on  the  subject  of  "theoretical 
modeling  of  MHD  calculations"  and  is  presented  in  six  subsections: 

(1)  hydrocodes;  (2)  MHD  hydrocodes;  (3)  MHD  boundary  layers;  (4)  elec- 
tric potential  and  current  stream  functions;  (5)  MHD  shocks;  and 
(6)  simplified  MHD  analysis. 

Hydrocodes 

There  are  at  present  hundreds  of  existing  hydrodynamic  computer 
programs  commonly  referred  to  as  "hydrocodes"  as  discussed  in  Section 
1.3.  They  are  categorized  as  either  Eulerian  or  Lagrangian,  explicit 
or  implicit,  viscous  or  inviscid,  etc.  The  origin  of  these  programs 
can  be  traced  to  less  than  a half  dozen  sources  and  although  each 
hydrocode  has  been  tailored  by  its  own  evolutionary  process,  the  funda- 
mental nature  of  all  codes  can  be  categorized  into  a small  class  of 
finite  difference  techniques.  This  is  not  to  imply  that  the  stability 
or  convergence  or  rate  of  convergence  of  these  programs  are  equivalent; 
some  programs  remain  stable  and  give  accurate  solutions  for  a limited 
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number  of  problems  over  a restricted  integration  region,  whereas 
other  methods  can  treat  a wider  variety  of  problems  under  more  severe 
numerical  conditions. 

Pioneers  in  the  field  of  hydrocodes  can  be  traced  to  those  organ- 
izations equipped  with  the  most  advanced  computer  systems.  Some 
leading  theoreticians  (2-4)  began  work  in  the  late  1940 's  which  re- 
sulted in  the  development  of  hydrocodes  beginning  in  the  early  1950* s 
(5-17) . Numerous  authors  (18-20)  have  made  comparisons  of  these  finite 
difference  techniques. 

MHD  Hydrocodes 

A number  of  MHD  hydrocodes  exist  with  the  predominant  number 
employing  implicit  schemes  and  solving  the  magnetic  induction  equation 
instead  of  the  elliptic  equation  describing  the  stream  function  or 
potential.  Roberts  and  Potter (21)  and  Killeen  (22)  discuss  finite 
difference  equations  and  MHD  hydrocode  applications.  In  1963,  Roberts, 
et  al. , (23)  developed  "THETATRON,"  employing  the  magnetic  induction 
equation,  designed  to  treat  plasma  problems  such  as  "theta  pinch  con- 
tainment." Freeman  and  Lane  (24)  developed  in  1969  an  explicit, 
Eulerian,  Lax-Wendroff  MHD  technique.  Two-dimensional  laminar  com- 
pressible MHD  flow  problems  were  treated  by  Fritzer,  et  al.,  (25)  in 
1972.  Eddy  currents  were  calculated  using  a modified  FLIC  (Fluid  In 
Cell) , PLIC  (Plasma  In  Cell)  and  employing  the  donor-receiver  tech- 
nique (see  Appendix  A.l).  It  was  found  that  since  the  ratio  of  the 
speed  of  light  to  sound  was  many  orders  of  magnitude,  the  induction 
equation  had  to  be  solved  at  this  same  ratio  for  each  gas  dynamic  time 
iteration.  It  was  determined  that  gradients  of  velocity,  conductivity 
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and  magnetic  field  can  tailor  the  shape  of  stream  currents  in  a de- 
sired fashion. 

Other  techniques  were  developed  (26-29)  for  plasmas  which  solve 
the  magnetic  induction  equation.  Fajen  (26)  in  1973  used  the  Harlow 
and  Amsden  "ICE"  code  and  modified  it  to  a Lax-Wendroff  scheme. 

Brackbill  and  Pracht  (27)  in  1973  extended  the  "ICE-ALE"  technique 
into  an  "almost-Lagrangian"  (11)  implicit  scheme.  Gubarev  (30)  in  1973 
employed  the  assumption  of  small  magnetic  Reynolds  number  and  investi- 
gated the  stagnation  of  supersonic  flow  of  a conducting  gas  in  an  MHD 
channel  with  Hall  currents.  One  electrode  was  considered.  In  1974 
Ostretsov  (31)  divided  the  system  into  two  subsystems,  one  containing 
the  equations  describing  the  EM  fields  and  the  other  describing 
the  gas  dynamics,  and  constructed  an  iteration  scheme  between  the  two. 
Lindemuth  (29)  in  1974  employed  an  alternating  direction  implicit 
scheme  to  treat  plasmas  of  high  magnetic  Reynolds  numbers.  Bakhrakh 
and  Gubkov  (32)  used  a 2-D  axisymmetric  finite  difference  method  with 
finite  conductivity  and  an  azimuthal  magnetic  field.  The  solution  was 
developed  in  three  phases:  (1)  computing  the  hydrodynamics,  while 
freezing  the  magnetic  flux,  (2)  while  freezing  the  fluid  dynamic  state, 
computing  the  induced  magnetic  field,  and  (3)  computing  Joule  heating. 

It  was  determined  that  the  order  in  which  these  three  phases  were 
carried  out  did  not  affect  the  final  results. 

MHD  Boundary  Layers 

In  the  late  1950’s,  Rossow  and  Bush  (33-35)  studied  the  interaction 
of  a conducting,  viscous  fluid  with  an  applied  magnetic  field.  It  was 
found  that  the  drag,  skin  friction  and  heat  transfer  were  affected  by 
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the  strength  of  the  magnetic  field  which  in  turn  could  be  exploited  to 
control  the  motion  of  a fluid.  Sherman  (36)  in  1961  studied  the  in- 
fluence of  a nonuniform  magnetic  field  on  a Blasius  boundary  layer. 

Others  including  Sears,  Hunter,  Wu,  Taylor,  Denzel,  High  and  Felderman 
(37-40)  studied  the  effects  of  nonuniform  properties  of  an  equilibrium 
plasma  in  a segmented  MHD  generator  assuming  laminar  or  turbulent 
velocity  profiles.  Dix  and  Dukowicz  (41,42)  considered  a solution  to 
the  equations  of  motion  for  flow  over  a flat  plate  boundary  layer  under 
the  influence  of  a transverse  magnetic  field  for  low  magnetic  Reynolds 
number.  Monis,  Eustis,  Krueger  and  Self  (43)  in  1973  matched  a 1-D 
gas  dynamic  solution  with  a 1-D  boundary  layer  solution  under  the 
influence  of  a magnetic  field.  Doss,  Dwyer  and  Hoffman  (44)  investigated 
compressible  laminar  and  turbulent  boundary  layers  in  an  MHD  channel. 

Also  in  1973,  Derkach  and  Zhigula  (45)  developed  a closed  form  analytic 
solution  to  flow  over  a long  cylinder  under  a radial  magnetic  field. 

The  work  of  Demetriades,  Argyropoulos  and  Maxwell  (46)  consider  two- 
and  three-dimensional  solutions  to  viscous  flow  in  MHD  generators  and 
accelerators . 

Electric  Potential  and  Current  Stream  Functions 

The  2-D  Laplace  equation  of  the  electric  potential  or  the  current 
stream  function,  discussed  in  Section  (2) , was  solved  initially  by 
conformal  mapping  (47-51).  End  effects,  variable  geometry  and  con- 
centration of  current  resulting  from  Hall  current  around  electrodes 
were  investigated.  Dzung  (52)  in  1962  employed  a series  solution, 
whereas  Sherman  (53)  considered  conductivity  a function  of  current  and 
developed  a solution  using  an  expansion  technique.  More  recently, 
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Poberenzhskii  and  Yakkot  (54)  employed  an  analytic  solution  using  the 
method  of  images  of  vortex  source  combinations.  Crown  (55)  was  the 
first  to  attempt  a numerical  relaxation  technique  but  developed  numer- 
ical instabilities  for  Hall  parameters  greater  than  2.  Celinski  and 
Fischer  (56)  in  1966  eliminated  this  numerical  problem  by  modifying 
the  numerical  technique  and  calculated  solutions  with  Hall  parameters 
up  to  10.  Louis,  Lothrop  and  Brogan  (57)  used  simple  theories  for 
flow  with  uniform  properties  and  predicted  fluctuations  of  current 
distribution  in  time  and  space,  particularly  near  electrodes.  Finally, 
Oliver  (58)  considered  instabilities  due  to  spatial  nonuniformities  in 
the  electrical  conductivity  from  inhomogeneous  mixing  of  ionizable 
species,  resulting  from  variable  fluid  properties  or  nonuniform 
Joulean  heating.  Relaxation  techniques  were  employed  to  investigate 
these  instabilities. 

MHD  Shocks 

There  are  numerous  papers  concerning  MHD  shocks  and  Alfven  waves. 
Some  analytic  expressions  for  MHD  shocks  were  developed  by  Greifinger 
and  Cole  (59)  and  Natter  (60)  . Numerical  calculations  were  performed 
by  Chu  and  Taussig  (61),  Sutton  and  Sherman  (62),  and  Shank  and  Morse 
(63) , the  latter  two  employing  the  "Particle  In  Cell"  method  developed 
by  Harlow,  et  al.  The  use  of  magnetic  fields  to  displace  shocks  on 
re-entry  vehicles  was  discussed  by  Resler  and  Sears  (64)  and  Ziemer 
(65)  in  their  papers  concerning  the  prospects  of  "magnetoaerodynamics." 
Simplified  MHD  Analysis 

Other  MHD  analysis  included  the  work  of  Sutton  (66)  in  1959 
who  discussed  the  relationships  which  govern  the  performance  of  constant 
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velocity,  temperature,  pressure,  density  and  area  generators,  whereas 
Swift-Hook  (67)  considered  a constant  temperature  generator.  MHD  flow 
parameters  were  studied  by  Wilson,  et  al.,  (68)  by  employing  1-D 
influence  coefficients  which  governed  the  behavior  of  the  fluid  under 
pressure,  temperature,  friction  area  change  and  Lorentz  force  terms. 
Similarly,  Zampaglione  (69)  considered  choking  in  a constant  area 
channel  and  Chubb  (70)  studied  an  MHD  nozzle. 

One-dimensional  analysis  of  MHD  flow  was  investigated  by  Neuringer 
(71)  using  the  method  of  calculus  of  variation  in  seeking  conditions 
for  optimum  power  generation.  Brocher  (72)  and  Blecher  (73)  studied 
in  1961  a constant  velocity  MHD  generator  with  variable  conductivity 
and  developed  closed  form  expressions  yielding  generator  performance. 
Ralph  and  Harwell  (74)  in  their  discussion  of  power  and  performance 
of  MHD  generators  determined  that  since  power  is  proportional  to 
conductivity  times  velocity  squared,  an  optimum  ratio  of  internal  to 
kinetic  energy  will  yield  an  optimum  Mach  number  resulting  in  optimum 
power. 

Other  studies  include  the  work  of  Sonnerup  (75),  Roy  and  Wu  (76) 
and  Sherman  and  Sutton  (77),  who  considered  incompressible  constant 
property  2-D  flow  under  the  influence  of  a tensor  conductivity  and 
segmented  electrodes. 

The  performance  of  MHD  generators  was  also  investigated  by  others 
(78-87);  those  investigators  considered  the  adverse  influence  of 
boundary  layers  (laminar  and  turbulent).  Hall  current,  separation,  end 
effects,  external  loading  and  geometry  on  the  power  and  efficiency  of 
generators . 
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1 . 3 Fundamentals  of  Numerical  Methods 

This  dissertation  illustrates  the  stability  and,  where  practical, 
the  convergence  and  compatability  of  a numerical  technique  to  be 
subsequently  described  through  application  to  a number  of  problems 
outlined  in  Section  1.4.* 

A method  is  called  stable  if  any  bounded  starting  procedure  yields 
a uniformly  bounded  solution  of  the  difference  equation  as  the  step 
size  goes  to  zero.  A method  is  converging  if  the  values  of  the  solution 
to  the  finite  difference  equations  (FDEs)  approximating  the  differential 
equation  tend  to  the  values  of  the  exact  solution  to  the  differential 
equation.  Finally  a method  is  compatible  if  the  truncation  error  goes 
to  zero  as  the  step  size  goes  to  zero  (88).  Thus,  if  a method  is  stable, 
converging  and  compatible,  the  solution  to  the  finite  difference 
equations  is  bounded,  its  error  is  influenced  by  the  step  size  and  the 
differential  equation  solved  by  the  FDEs  is  indeed  the  differential 
equation  under  investigation. 

If  a finite  difference  technique  is  used  to  approximate  a set  of 
equations,  it  is  characterized  by  the  time  and  space  coordinate 
systems  employed.  A coordinate  system  fixed  to  the  moving  fluid 
(constant  mass)  is  known  as  MLagrangian, " whereas  a coordinate  system 
fixed  in  space  (constant  volume)  is  categorized  as  "Eulerian."  If  the 
time  derivative  of  variable  f is  evaluated  based  on  values  of  f at 
other  locations,  also  being  simultaneously  evaluated,  the  method  is 


*A  rigorous  mathematical  stability  analysis  was  not  performed. 
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referred  to  as  "implicit,"  whereas  if  the  time  derivative  of  variable 
f is  evaluated  based  on  values  of  f at  other  locations  and  these 
values  are  already  known  from  a previous  time,  the  method  is  identified 
as  "explicit."  The  basic  advantages  and  disadvantages  of  the 
Lagrangian,  Eulerian,  implicit  and  explicit  methods  are  outlined  below. 
The  convenience  in  treating  boundary  conditions  and  grid  distortion 
play  major  roles  in  the  selection  of  the  method  employed. 

Given  a partial  differential  equation  such  as: 


if(u)  = ( 1} 

where  L is  a differential  operator  with  independent  space  coordinates, 
the  integration  of  u may  be  performed  by  two  methods:  explicit  or 
implicit 
where 


/jfOOdt  =^L(  u)dt 


n+1  n . Tn+1,.  n+1.  ^ .Aj_t nr  n a 

u.  .-u.  . = eAtL  (u.  .)  + (l-e)AtL  (u.  .) 
1 , 3 1 , 3 1 , 1 1 > 3 


At  = tn+1-tn 


( 2) 
( 3) 

( 4) 


and  e = integration  parameter;  explicit  = (0),  implicit  = (1).  If 


e = 0, 


n+1 
u.  . 


i ,3 


u1}  .+AtL 


n 


(un  0 

i,3 


( 5) 


The  explicit  calculation  provides  values  for  u at  time  (n+1)  based 
on  values  of  u at  time  (n) , which  are  obviously  all  known.  However, 
numerical  stability  for  an  explicit  technique  restricts  the  time  step, 
and  thus  the  rate  of  convergence  to  a steady  state  solution. 
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A discussion  of  the  stability  criteria  follows,  but  its  physical  inter- 
pretation suggests  that,  "The  rate  of  propagation  of  information  by  the 
finite  difference  solution  across  a mesh  cannot  exceed  one  space-step 
during  each  time- step  and  must  be  able  to  keep  up  with  all  propagation 
speeds  of  the  differential  system,  including  waves,  fluid  motion  and 
diffusion."  (21)  The  most  unfavorable  local  case  (smallest  cell,  largest 
signal  velocity)  must  necessarily  be  taken. 

If  e = 1, 


n+1 
u.  . 


n . Tn+1 , n+1. 
u.  . +AtL  (u.  .) 
i,l  i,l 


( 6) 


and  the  implicit  integration  computes  u at  time  (n+1)  based  on  neigh- 
boring values  of  u also  at  time  (n+1)  which  are  not  known.  If  the  L 
operator  is  linear,  then  the  solution  to  the  equations  has  been  reduced 
to  the  solution  of  a set  of  simultaneous  algebraic  equations  at  each 
time  step.  The  matrix  is  tri-diagonal  and  can  expeditiously  be  inverted 
algebraically  (3) . 

In  the  former  explicit  case,  all  terms  on  the  rhs  are  known,  and 
each  updated  value  of  u is  individually  computed.  In  the  latter  impli- 
cit case,  values  on  the  rhs  of  the  FDE  are  not  known  and  values  for  the 
neighboring  points  must  be  computed  simultaneously  by  either  matrix 
inversion,  if  the  equations  are  linear,  or  some  iteration  procedure,  if 
the  equations  are  nonlinear. 

Although  the  time  interval  of  an  implicit  calculation  is  not 
restricted  by  the  speed  at  which  signals  propagate  (primarily  the  local 
speed  of  sound),  it  is  regulated  by  the  particle  velocity  and  cell  size. 
Since  the  computation  time  for  an  implicit  time  step  calculation  is  four 
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to  five  times  greater  than  that  for  the  explicit  calculation,  problems 
where  the  flow  field  has  speeds  in  excess  of  Mach  0.2  to  0.25  will  be 
more  efficiently  computed  explicitly.  Also,  representing  the  FDEs  in 
the  form  of  simultaneous  algebraic  equations  which  may  be  cast  in  the 
traditional  tri-diagonal  matrix,  nonlinear  terms  must  be  either  ignored 
or  treated  explicitly.  Thus  implicit  programs  work  most  efficiently 
for  incompressible  linear  problems  and  compare  unfavorably  at  high  sub- 
sonic speeds. 

Many  existing  hydrocodes  claim  to  be  able  to  solve  the  transient 
"initial  value  problem”  (IVP)  when  in  actuality  their  methods  are 
efficient  only  for  the  steady  state  "boundary  value  problem"  (BVP) . In 
solving  the  BVP,  a unique  solution  exists  for  a prescribed  set  of  bound- 
ary conditions,  providing  that  these  boundary  conditions  are  not  time- 
dependent.  The  steady  state  solution  is  developed  by  relaxing  to  the 
final  state  from  some  arbitrary  set  of  initial  conditions.  Relaxation 
does  not  connote  solving  the  transient  equations  as  may  be  incorrectly 
assumed.  Implicit  programs  converge  to  the  steady  state  solution  more 
rapidly  than  explicit  programs  because  of  the  more  stringent  stability 
criteria  plaguing  the  explicit  method.  However,  for  the  IVP,  where 
transient  behavior  is  considered,  implicit  programs  are  not  competitive 
because  either  large  time  steps  as  employed  in  the  BVP  will  result  in 
a grossly  inaccurate  transient  solution  or  smaller  time  steps  yields  a 
more  expensive  calculation  when  compared  with  the  explicit  approach. 

In  a complex  problem,  where  such  phenomena  as  shocks  reflecting  or  inter- 
acting with  boundary  layers  occur  over  a period  of  microseconds,  one 
cannot  expect  much  fruition  from  a calculation  which  "smears"  this 
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behavior  over  a time  step  of  milliseconds.  It  is  therefore  emphasized 
that  ’’pseudo-transient"  implicit  techniques  which  do  not  violate  any 
stability  criteria  do  not  necessarily  converge. 

In  the  explicit  scheme,  since  the  new  value  of  the  dependent 
variable  is  based  on  the  old  value  of  its  neighbors,  a large  step  size, 
or  one  that  exceeds  a stability  bound,  can  obviously  lead  to  an  insta- 
bility because  the  change  may  be  unrestrained.  In  the  implicit  scheme, 
however,  since  the  new  value  of  the  dependent  variable  is  based  on  the 
new  value  of  its  neighbors,  all  values  of  the  dependent  variable 
(including  boundary  values)  are  implicitly  "tied"  to  each  other  and 
serve  as  a restoring  or  restraining  force  on  the  behavior  of  the  depend- 
ent variable  in  ensuing  iterations.  Although  the  implicit  scheme  is 
stable  usually  under  the  severest  of  conditions  (large  step  size,  high 
nonlinearity,  etc.)  the  accuracy  of  its  solutions  will  suffer  signif- 
icantly if  controls  are  not  placed  on  the  step  size. 

A basic  problem  in  solving  the  equations  governing  MHD  flow  is  the 
simultaneous  treatment  of  numerous  physical  processes:  magnetic,  ther- 
mal, viscous  transport,  hydrostatic  compression,  etc.  Starting  with 
known  initial  conditions  in  density,  velocity,  energy  and  magnetic  induc- 
tion ( or  electric  potential  or  stream  current) , the  transient  response 
of  a fluid  under  prescribed  boundary  conditions  is  computed  at  selected 
time  intervals.  These  intervals,  although  desired  large  in  order  to 
minimize  computational  time,  are  unfortunately  for  an  explicit  scheme 
strongly  dictated  by  some  basic  stability  criteria  which  implicitly 
expresses  the  speed  of  a signal  of  some  wave  or  diffusive  phenomenon. 
Lagrangian  integration  (fixed  mass)  is  significantly  influenced  by 
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advective  terras  in  the  governing  equations.  "The  transport  of  physical 
variables  such  as  density,  temperature,  magnetic  field  and  velocity  from 
point  to  point  by  the  bulk  motion  of  the  fluid  is  represented  by  v.V 
terms.  Superimposed  on  these  terms  are  other  kinematic  effects  such 
as  adiabatic  compression  or  diffusion,  Clearly  a Lagrangian  formulation 
using  a mesh  which  moves  with  the  fluid  can  transform  away  the  bulk 
motion  altogether  allowing  the  remaining  terms  to  be  treated  more 
accurately."  (3)  If  however,  the  convective  terms  dominate,  then 

the  grid  frozen  to  the  mass  becomes  severely  distorted  and  results  in 
large  discretization  error.  Rezoning  the  mesh,  periodically,  can  result 
in  large  conservation  errors.  "A  fixed  Eulerian  mesh  is  normally  used 
in  practice  and  thus  requires  careful  treatment  of  the  advective 
(convective)  term  if  physical  diffusion  is  not  to  be  masked  by  numerical 
effects."  (Ref.  3) 


The  time  step  over  which  each  integration  (cycle)  is  performed  is 
governed  by  stability  criteria. 

Stability  conditions  which  control  the  time  step  At  are: 

(A)  The  Courant  condition: 


s,  r . Ar 
At  > c ’ At  > c 


(B)  The  particle  velocity  condition: 


Az 

At 


Ar 

At 


( 7) 
( 8) 


> u ; — > v 


which  prohibits  the  transmission  of  a signal  or  mass  across  more  than 
one  cell  in  one  time  interval. 
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(C)  Viscosity  condition: 


2 V < l_  . 2 y < 1_ 

3 p(Az)2  At  3 p(Ar)2  At 

UF  1 1 

p(Az)  At  p(Ar)2  At 


( 9) 


( 10) 


(D)  Alfven  condition: 


1_  B^_  < 1_ 

A.r  ]4  p At  J Az  p p At 


( 11) 


Employed  in  conjunction  with  the  solution  of  the  magnetic  induction 
equation  which  prohibits  the  transmission  of  an  Alfven  wave  across 
more  than  one  cell  in  one  time  interval. 

(E)  Thermal  conductivity  condition: 


X .1  X ^ 1 , . 

2 < — > j < — : iaminar 

pCp(Az)  At  pc^Ar)  At 

X f i X t i 

j < — ; j < — : turbulent 

pc  (At)  At  pCp(Ar)  At 

(F)  Magnetic  diffusion  condition: 

< JL  • i <i- 

2 ’ 2 
au^(Az)  At  ap^(Ar)  At 


( 12) 


( 13) 


( 14) 


(G)  Lorentz  condition: 


aB  JL 

p At 


( 15) 
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Considering  all  phenomena,  the  time  step  becomes: 


At  = 


At  = 


r 2 y ye 
Az/{u+c+  ■=■  — T—  + -t— 
3 pAz  pAz 


B 


2 ^ 

Ar/{v+c+  — —7—  + — t—  + 

3 pAr  pAr  pp^ 


X+XT  1 OB2 

pcpAz  + op  Az  + “p“  Az  ^ 

X+X^  1 OB2 

PF"SF  + opf^F  + "pT  Ar  > 

P p 


( 16) 

( 17) 


where  At  is  evaluated  at  each  cell  and  the  minimum  value  employed. 

1.4  Scope  of  Present  Work 

The  objective  of  this  investigation  is  to  demonstrate  a numerical 
procedure  which  can  predict  the  transient  aerodynamic  behavior  of  a 
(conducting)  fluid  under  the  influence  of  viscous  and/or  electromagnetic 
forces.  Calculations  are  performed  in  two-dimensions  (axisymmetric) , 
although  the  technique  can  be  easily  expanded  to  treat  three-dimensional 
flow.  Further,  although  variations  in  the  grid  formation  or  integration 
technique  may  be  employed  to  improve  the  program's  computational  effi- 
ciency, these  efforts  were  considered  beyond  the  scope  of  this  study. 

The  programs  flexibility  to  treat  physical  phenomena  is  demonstrated 
through  solution  to  classical  problems  which  consider: 

I.  Compressibility: 

A.  Incompressible  (Blasius  problem) 
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B.  Compressible  (nozzle  flow) 

II.  Mach  Regimes: 

A.  Subsonic  (Mil 7 Warhead) 

B.  Transonic  (Mil 7 Warhead) 

C.  Supersonic  (sharp-nosed  projectile) 

D.  Hypersonic  (re-entry  vehicle) 

III.  Boundary  Layers: 

A.  Laminar  (Couette  flow) 

B.  Turbulent  (free  jet) 

IV.  Magnetic  Reynolds  Number  regime: 

A.  High  magnetic  Reynolds  number  (MHD  shock  detachment) 

B.  Low  magnetic  Reynolds  number  (MHD  generator) 

1 . Current  stream  function 

2.  Electric  potential 

V.  Heat  transfer 

A.  Thermal  conduction  (transient  temperature  diffusion) 

B.  Viscous  dissipation  (boundary  layer  problem) 

C.  Joule  heating  (MHD  generator) 

D.  Aerodynamic  heating  (ablated  RV) 

VI.  Shocks 

A.  Normal  shock  (shock  tube) 

B.  Oblique  shock  (sharp-nosed  projectile) 

C.  Mach  stem  (regular- irregular  Mach  reflection) 

D.  Imbedded  shock  (ablated  RV) 

VII.  Time  dependency 
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A.  Transient  (see  problems  above) 

B.  Steady  state  (see  problems  above) 

The  program  employs  three  finite  difference  techniques  to  integrate 
time  dependent  variables: 

(A)  gas  dynamic  integration  is  achieved  using  the  Explicit  Method 
developed  by  Matuska. 

(B)  the  solution  of  the  elliptic  equation  (low  Re^)  for  the 
electric  potential  or  stream  current  function  employs  the 
method  of  Successive  Over -Re taxation  (SOR) . 

(C)  the  magnetic  induction  equation  (high  Rem)  and  the  Fourier 

thermal  diffusion  term  in  the  energy  equation  are  solved  by 
either  a central  difference  explicit  scheme  or  an  Alternating 
Direction  Implicit  (ADI)  procedure. 

An  alternating  direction  implicit  technique  had  been  applied  to  the 
hydrodynamic  equations,  but  its  primary  advantage  of  rapid  convergence 
to  steady  state  solution  for  some  problems  was  overshadowed  by  its 
limitations  (Section  (1.3))  in  treating  transient  cases  and  thus  pre- 
cluded its  use  in  solving  the  conservation  equations. 

The  overriding  objective  in  developing  this  technique  is  to  treat 
all  interacting  phenomena  described  by  their  governing  equations 
simultaneously  through  a set  of  flexible,  self-contained,  autonomous 
finite  difference  equations  where  the  only  input  consists  of  initial  and 
boundary  conditions  and  material  constitutive  relations. 

The  added  difficulties  in  solving  an  MHD  problem  occur  because  of 
the  "coupling"  effect  of  the  gas  dynamic  and  electromagnetic  fields 
which  are  interdependent.  The  MHD  generator  problem  serves  as  a critical 


30 


AEDC-TR-77-105 


Challenge  for  attaining  this  goal,  and  represents  a clear  test  in 
establishing  the  program’s  capability  to  treat  other  equally  difficult 
applications. 

The  difference  method  developed  by  Matuska  and  employed  by  the 
2-D  HULL  Code  is  fully  first  order  accurate.  The  HULL  finite 
difference  expressions  approximate  the  conservation  equations  governing 
a compressible,  non-conducting,  inviscid  fluid.  This  method  was 
extended  to  include  a two-dimensional  single  viscous  fluid  model  with 
six  fundamental  equations  governing  the  behavior  of  a conducting  fluid: 
(1)  continuity,  (2)  axial  momentum,  (3)  radial  momentum,  (4)  energy, 
and  from  Maxwell’s  equations  and  Ohm’s  Law,  (5)  magnetic  induction  or 
(6)  the  electric  potential  or  current  stream  function. 

CONSERVATION  OF  MASS: 

ir(p)+p(V-v)  =0  (18) 

CONSERVATION  OP  MOMENTUM: 

Pjjr(v)  +Vp  = -pg-V-T+IxB  ( 19) 

CONSERVATION  OF  ENERGY: 

pjg-(e)+V*  (pv)  = -pv*g-V-  (T’v)-V*q  ( 20) 

MAXWELL ' S RELATIONS: 

VxE  = ( 21) 

VxB  = ypJ  ( 22) 
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EQUATION  OF  STATE: 


P = p(p,i) 


CONSTITUTIVE  RELATIONS: 

(A)  STRESS  TENSOR: 

(1)  STOKES'  LAW  (LAMINAR): 

3u.  8u.  2 

Tij  = ^C(3X7  + W?- 
where  =■  u;  u s v;  = z;  X^  = r 

(2)  TURBULENCE  CEDDY  MIXING  LENGTH) ; 


T = "(tJ+V37(u) 


P = X2  ^L(u) 

E E °r 


~f~  — *f  ->  ->- 

3 = cr*  (E+vxB) 


5 = 

i+e2  e 1 


(C)  FOURIER'S  HEAT  CONDUCTION  LAW: 


(B)  OHM'S  LAW: 


q = -(X+Xt)VT 


BOUNDARY  CONDITIONS: 


(A)  SOLID  BOUNDARY: 


(B)  ELECTRODE: 


v*n  = 0 


4 “4- 

Exn  = 0 


(C)  INSULATOR: 


-f  ->  _ 

J*n  = 0 


( 23) 


( 24) 

( 25) 

( 26) 

( 27) 

( 28) 

( 29) 

( 30) 

( 31) 

( 32) 
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(D)  electrical  relation  between  the  external  and  internal  circuits 
of  an  MHD  generator. 

In  order  to  minimize  core  requirements  and  computational  cp  (central 
processor)  time  of  an  already  demanding  computational  method,  three- 
dimensional  problems  were  considered  impractical.  The  model,  however, 
can  be  easily  extended  to  a third  dimension  when  the  development  of 
advanced  computers  can  accommodate  the  requirements  of  hydrocodes,  in 
particular,  the  excessive  cp* time . Turbulence  was  treated  through  a 
simple  eddy  viscosity  model  and  no  attempt  was  made  to  use  sophisticated 
viscous  theory,  as  this  was  also  considered  to  be  beyond  the  scope  of 
this  effort. 


*cp  - Central  Processor 
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II.  DISCUSSION  OF  TWO-DIMENSIONAL  PLANE  AND  AXI SYMMETRIC  FINITE 

DIFFERENCE  TECHNIQUE. 

In  Section  1.4,  the  equations  describing  the  motion  of  a con- 
ducting fluid  were  presented.  This  section  discusses  a numerical 
procedure  which  "approximates"  these  equations  by  the  method  of  finite 
differencing.  In  order  to  successfully  develop  a set  of  finite  differ- 
ence equations  to  a system  of  partial  differential  equations,  three 
conditions  must  be  satisfied:  stability,  convergence  and  compatibility. 
The  objective  of  this  study  is  to  establish  through  a series  of  physical 
applications  that  the  equations  presented  in  this  section  do  indeed 
satisfy  these  numerical  conditions.  The  non-magnetic  partial  differen- 
tial equations  to  be  solved  are: 

(1)  Continuity 

(2)  Axial  momentum 

(3)  Radial  momentum 

(4)  Energy 

with  four  unknowns:  p,  u,  v and  e. 

When  including  MHD  effects,  one  needs  in  addition  for  large  magnetic 
Reynolds  number: 

(5)  The  magnetic  induction  equation 

with  the  magnetic  induction  intensity  as  the  additional  unknown. 

For  problems  of  low  magnetic  Reynolds  number,  one  needs 

(6)  The  elliptic  partial  differential  equation  governing  the 
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electric  potential  or  stream  current  function  (cj)  or  T)  . 

The  additional  unknown  becomes  (j)  or  T.  Pressure,  stress,  currents  and 
electric  fields  are  computed  from  the  variables  discussed  above  with  the 
additional  relations:  Equation  of  State,  Ohm's  Law  and  the  constitutive 
relations  correlating  stress  and  strain. 

2 . 1 Coordinate  Systems 

The  initial  development  of  a numerical  scheme  to  solve  the  non-MHD 
gasdynamic  equations  treated  axisymmetric  problems  with  coordinates  r 
(radial)  and  z (axial)  with  aximuthal  terms  constant  (d/d0  =0).  As  r-*°°, 
these  equations  reduced  to  a 2-D  Cartesian  system  where  the  traditional 
x,y-axis  coincide  with  the  z,r  coordinates,  respectively. 

When  high  Re^  MHD  effects  were  treated,  the  magnetic  induction  was 
considered  in  the  r,z,0  direction  without  violating  the  primary  assump- 
tion of  symmetry  about  the  z-axis,  since  (d/d0  = 0)  terms  were  neglected 
and  jxB  and  j.E  contributions  occur  only  in  the  r-z  plane.  In  the  case 
of  low  Re^  effects,  problems  were  treated  only  in  Cartesian  coordinates 
and  thus  the  electric  potential,  stream  current  function,  currents, 
electric  fields  and  consequently  the  Lorentz  force  and  electrical  energy 
terms  jxB  and  j*E  were  expressed  only  in  Cartesian  coordinates. 

In  summary,  all  problems  with  the  exception  of  the  low  Re^  MHD 
applications  are  solved  in  either  2-D  axisymmetric  or  2-D  Cartesian 
coordinates.  For  low  Re^  MHD  problems,  only  2-D  Cartesian  coordinates 
may  be  employed.  In  either  case,  r and  z coordinate  labels  are  employed. 
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2 . 2 Generalized  Equations 

The  conservation  equations  are  solved  in  two  dimensions  in  either 
axi symmetric  cylindrical  coordinates  or  Cartesian  coordinates  as  shown 
in  Figure  (2) . 

Equation  (33)  represents  the  conservation  of  mass: 

— (p)+  — (p'V-rV  — (P*u)  = 0 ( 33) 

6t  r 6r  <Sz 

where  a,  = 0 for  rectangular  coordinates  and  a = 1 for  cylindrical 
coordinates . 

The  conservation  of  axial  and  radial  momentum*are  described  by 


— (u)+v—  (u)+u— (u)  = (p)-g  - - [— — O 'Trz)+ — (Tzz^]+ 

6t  6r  6z  p 6z  p r 6r  6z  p 

( 34) 


6 6 <S  16  116  t 6 1 

— (v)+v — (v)+u— (v)  = — — (p)-g  ---  [—  — (ra*t  ) - + — (t  )]+- {|jxB]  } 

(St  6r  (Sz  p 6r  p r 6r  r 6z  p r 


( 35) 


The  conservation  of  total  energy  is  expressed  as 

<5  r . 6 . . 6 . . 1 r 1 <S  . ol  6 . 

— (e)  +v — (e)+u — (e)  = + — (p*vr  )+  — (p*u)J 

6t  6r  6z  p r 6r  <Sz 


±ri  u . a.  io.  u . o . .o.  . n lrr-> 

(Trr'v‘r  )+  1 :xrz-r  ’u)+  ~ Cv'Trz)  + ~fu-Tzz)]+  ~{»E]} 

p r or  r or  oz  oz  p 


-vg  -u*g  (T))+  — (-X-— I (T))] 

r Z p r Sr  <5r  6z  <5z 


( 36) 


^Momentum  is  not  conserved  because  of  viscous  dissipation  and  Joule 
heating.  The  expression  ’’conservation  of  momentum”  applies  to  the 
momentum  balance  including  irreversible  forces  and  the  expression  is 
not  meant  to  be  interpreted  literally. 
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The  electromagnetic  influence  of  the  Lorentz  force  in  driving  the 
fluid  is  represented  explicitly  as  JxB  in  the  momentum  equation  and  J-E 
in  the  energy  equation,  where  ) , B and  E represent  the  current,  magnetic 
induction  and  electric  field  vectors  respectively.  Equations  (34) 
through  (36)  contain  momentum  and  energy  convection,  pressure,  gravita- 
tional, viscous  and  electromagnetic  forces  and  the  reversible  and 
irreversible  work  performed  by  these  same  forces. 

Total  energy  per  unit  mass  is  composed  of  internal  and  kinetic 
energy  (assuming  p - pRT) ; 


2 2 


= -i_.  (Ewu...+V  ■) 
Y-l  V 1 2 J 


i = 


— 1 — rE) 
Y-l  V 


( 37) 


( 38) 


Equations  (33)  through  (38j  represent  a set  of  coupled  nonlinear 
partial  differential  equations  which  govern  the  behavior  of  a conduc- 
ting, viscous  perfect  gas.  Incorporating  Stoke' s Law,  (stress 
proportional  to  the  rate  of  strain)  for  laminar  flow,  in  the  form  of 
constitutive  relations  (39)  through  (42),  the  system  of  equations 
becomes  what  is  commonly  referred  to  as  the  Navier-Stokes  equations. 


T 

rr 

ro  6 , . 2 r 1 

-Op — (V) — p{— 
6r  3 ra 

6 . a 
— (r  • 

6r 

v)  + 

— (U)}J 

6z 

( 

39) 

T 

zz 

-[2*p— (u)  *y{— 

6 f a 

V)  + 

— (U)>] 

( 

40) 

6z  3 ra 

6r 

6z 

CD 

CD 

II 

r0  V 2 r 1 6 

-l>y — 

-(ra«v) 

6 

+ — 

-(u)] 

( 

41) 

x 3 r 6r 

6z 

T 

rz 

-y[^Cu)+ 

( 

42) 

38 


AEDC-TR-77-105 


or  for  turbulent  flow: 


T 


rz 


-(v+w^C^Cu)*  IyCv)] 


( 43) 


2 . 3 Problems  of  High  Magnetic  Reynolds  Number 
When  considering  problems  of  high  magnetic  Reynolds  number  and 
significant,  induced  magnetic  induction,  the  Lorentz  force  (jxB)  may  be 
replaced  with  the  aid  of  Maxwell’s  equations  as  follows: 

jxB  = i(V-B) *B  ( 44) 


Incorporating  this  term  implicitly  in  the  form  of  a magneto-stress 
tensor,  the  magneto-stress  elements  become: 


T 

rr 


zz 


B2 


ee 


& 


rz 


p 

B • B 
yP 


( 45) 

( 46) 

( 47) 

( 48) 


which  are  added  to  the  viscous  stress  elements. 

The  magnetic  induction  equation  has  three  components  yielding  the 
induced  fields  in  the  azimuthal,  radial  and  axial  directions,  respec- 
tively (with  zero  Hall  current) : 


6 5 6 6116  ra-B  6 1 6 Bfl 

— (B.) (B  -u)— (B  -v)  = ^)]+  —[(-—(—)] 

St  6z  Sr  Sr  a r Sr  y Sz  cr  Sz  y 

P P 


( 49) 
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6 6 6 

— (BJ (B  #u)  + — (B  -v) 

fit  T Sz  6z 


6 IX  6 ra,B 

+ — [(-—  — ( 1)3  + 

fir  a r fir  y^ 


5 1 6 B 


5z 


[(-  -(-)1 
a 5z 


( 50) 


a 


5 16  1 6 6 116  r -B 

— (B  )+  — — (ra*u*B  ) — — — (ra«vB  ) = — [ (—  — — ( “)] 


z'  Z'  cl  * 
fit  r fir 


r"  a * 
r fir 


fir  a ra  6r  y. 


6 lfiB 

+ - [(--(-)] 
fiz  a fiz  y 

P 


( 51) 


Since  this  program  is  two-dimensional,  all  derivatives  in  the  azimuthal 
direction  have  been  neglected. 

In  equation  (52),  the  hydrostatic  and  magnetic  pressure 
were  added  to  give  the  true  pressure  of  the  medium. 


p = p+u 


B2  B2  B2 


2v>  2P. 


2u. 


( 52) 


If  JxB  and  J*E  appear  in  the  momentum  and  energy  equations,  then 
the  stress  tensor  and  pressure  term  do  not  contain  the  magnetic 
components  and  equations  (49)  through  (51)  need  not  be  solved.  If  the 
magneto-stress  terms  are  employed,  then  jxB  and  do  not  appear 
explicitly  in  the  momentum  and  energy  equations  and  currents  and 
electric  fields  are  not  (necessarily)  computed. 

2.4  Problems  of  Low  Magnetic  Reynolds  Number 
Calculation  of  the  electric  fields  and  currents  is  developed  from 
the  solution  of  the  elliptic  partial  differential  equation  (PDE) : 

^C^(F))+A^(F)+B^(F)+C  = 0 (53) 
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where  F represents  either  the  electric  potential  or  the  current  stream 
function  (<J>  or  T) , and  coefficients  A,  B and  C are  functions  of  u,  v, 
a,  3 and  B.  Equation  (53)  was  derived  from  Maxwell's  relations. 

VxE  = ( 54) 


and  neglecting  the  rate  of  change  of  charge  density 

v-T  = 0 

The  derivation  of  this  PDE  and  its  coefficients  follows. 


( 55) 


A scalar  potential  is  defined  such  that  its  gradient  yields 
components  of  the  electric  field: 

E = — Vc[>  ( 56) 

consistent  with  equation  (57) 

-VxV(()  = 0 ( 57) 

Employing  Ohm's  Law,  the  current  is  found  to  be 

T = ffCE+vxB)-— (JXB)  ( 58) 

|b| 

where  the  first  term  represents  the  sum  of  the  applied  and  induced 
currents  resulting  from  the  electric  field  and  the  second  term  is  the 
Hall  current. 

Expressing  Ohm's  Law  through  a tensor  conductivity: 

J = ct-E  ( 59) 

the  components  of  current  take  the  form: 

jz  =^2[CEz+vB)-g(Er-uB)]  (60) 
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j = -2-JB(e  +vB)  + CE  -uB)] 
r l+B  z. 


( 61) 


where 

j , jz  = r and  z components  of  current 

u,  v = r and  z components  of  particle  velocity 

E , = r and  z components  of  electric  field 

a = scalar  conductivity 

3 = Hall  parameter 

B =9  component  of  the  magnetic  induction* 

and  from  Equation  (56) 

Ez  = Er  = -few  C 62) 

Substituting  Equations  (60),  (61),  and  (62)  into  Equation  (55), 
Equation  (63)  results: 


6 ....  6 r6  ....  r 1 6 ( . Q1  6 e . 6 .Q.-iS  ... 

57c5rc,,):))+  67C6FW)+[57  6l(at)+B57  6F(V+  6F(6)%(<I>) 


+[±--  V + [VB+BUB%  V 

~(vB+euB)-[uB-evB]i-|?(a+)+  Ij-(uB-BvB)  = 0 

t 


( 63) 


where 


at  = 


1+3 


( 64) 


*r  and  z magnetic  fields  are  not  treated  since  the  MHD  generator 
modeled  in  Section  (4)  does  not  require  it. 
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From  Equation  (55),  one  may  define  a current  stream  function  ¥ as 


'z  6Fm  jr  = "57^ 


( 65) 


Employing  Equations  (54)  and  (58),  Equation  (66)  is  developed: 


C'0+  L<V*  °U|FCBu)  + ^(Bv))]  = 0 


( 66) 
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2.5  HULL  Finite  Difference  Equations 

A method  developed  by  Daniel  Matuska  for  computing  hydrodynamic 
properties  of  a fluid  was  employed.  A discussion  of  the  HULL  finite 
difference  technique  appears  in  Appendix  (A  );  the  salient  features 
are  outlined  below: 

Calculations  are  performed  in  two  phases:  phase  I,  integrating 
the  "Lagrangian  terms"  (coordinate  system  fixed  to  the  fluid  element) 
and  phase  II  treating  the  convective  terms  by  transporting  mass. 

A grid  is  initially  generated  as  shown  in  Figure  (3).  Parallel, 
although  not  necessarily  equally  spaced  lines  are  constructed  in  both 
the  r and  z directions.  These  grid  lines  form  a mesh  with  elements  or 
cells  defined  by  the  four  grid  lines  bordering  it.  Each  cell  is  assigned 
an  index  value  in  much  the  same  manner  that  elements  of  a matrix  are 
assigned  identification.  The  lower  left-hand  boundary  cell  has  indices 
of  i=l,  j=l  and  incrementing  values  of  i as  one  marches  in  the  vertical 
(r)  direction  or  incrementing  values  of  j as  one  marches  in  the  axial 
(z)  direction.  There  are  certain  hydrodynamic  (thermodynamic)  variables 
assigned  to  each  cell  initially,  with  updated  values  of  these  variables 
stored  in  the  ensuing  calculations.  These  variables  are  density,  axial 
velocity,  radial  velocity  and  total  energy  (magnetic  and  electric  fields 
are  added  later) . Other  properties,  such  as  pressure  or  internal  energy, 
can  be  computed  directly  from  these  parameters.  In  phase  I calculations, 
values  of  p,  u,  v and  e at  the  boundary  of  the  cell  are  needed;  there- 
fore, indices:  i,j-%;  i-%,j;  i,j+%;  and  i+h,j  refer  to  such  values  (see 
Figure  (4)). 
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Matuska  solved  Equations  (18)  through  (20)  and  (23),  excluding 
the  viscous,  magnetic  and  heat  conduction  terms,  whereas  the  development 
of  a numerical  solution  to  equations  (18)  through  (29)"  in  their  entirety 
makes  up  the  subject  of  this  study. 

Employing  those  numerical  features  characterizing  HULL  which 
distinguish  its  methodology  from  other  finite-difference  techniques, 
calculations  are: 

(I)  time  and  space  centered,  analogous  to  a "predictor-corrector" 
integration. 

(II)  performed  in  two  phases;  phase  I:  calculating  the  change  in 
momentum  and  energy  in  a Lagrangian  reference  frame  (no 
convection)  (Figure  (5))  and  phase  II:  employing  the  "donor - 
receivor"  technique  where  mass,  momentum  and  energy  are  trans- 
ported (convected)  between  neighboring  cells. 

Figure  (6)  illustrates  a cell  with  indices  assigned  at  the  cell 
center  and  four  cell  interfaces.  The  values  of  p,  u,  v and  e (or  p)  are 
known  at  t(n).  The  procedure  for  determining  p,  u,  v,  and  e at  t(n+l) 
is  as  follows: 

Referring  to  Figure  (6),  p,  u,  v and  p 

(1)  are  defined  at  each  interface  based  on  cell  center  values  at 
t(n).  Figure  (6a). 

(2)  are  updated  to  t(n+%)  by  "predicting"  values  based  on  the 
conservation  equations  - time  centering  (Figure  (6b)). 

(3)  at  cell  centers  are  computed  by  again  integrating  using  the 
interface  values  - space  centering. 
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(4)  at  t(n+l)  are  employed  to  flux  mass  from  cell  to  cell  and  thus 
restore  the  distorted  Lagrangian  mesh  (Figure  (6c))  to  its 
original  position. 

The  fundamental  purpose  of  time  and  space  centering  is  to  preserve 
numerical  stability,  especially  in  regions  of  small  hydrodynamic 
gradients.  Further,  by  employing  the  donor-receiver  technique  in  phase 
II  and  "re- zoning"  the  displaced  Lagrangian  mesh  back  to  its  original 
position,  the  calculation  remains  Eulerian  in  nature. 

2.6  Curved  Boundaries 

Conditions  for  a solid  boundary  are  represented  by  Equations  (30) 
to  (32).  If  the  body  is  curved,  as  is  shown  in  Figure  (7),  the  angle  of 
curvature  is  determined  over  segments  of  the  curve  and  the  unit  normal 
vector  is  evaluated  over  the  segment  chord.  Thus,  cells  lying  on  the 
solid  boundary  are  "oriented"  so  that  the  bodies  true  streamline  is 
reflected  in  the  calculation. 

2.7  Finite  Difference  Equations  (FDEs) 

An  introductory  explanation  of  the  HULL  FDEs  appear  in  Appendix 
(A  ).  This  section  examines  the  complete  set  of  equations,  including 
viscous,  thermal,  magnetic  and  electric  terms  all  in  finite  difference 
form. 

Phase  I (Lagrangian  Frame  of  Reference) 

Referring  to  Figure  (4)  where  the  indices  i,j  are  defined,  calculations 
made  in  a Lagrangian  frame  of  reference  consists  of  traveling  with  the 
moving  fluid  or  mass  particles  or  in  the  case  of  this  program,  traveling 
with  cells  (or  grids)  of  fixed  mass.  In  Equation  (69)  the  cell  mass  is 
computed  by  taking  a circular  cut  of  the  cell  from  (r(i+%) ,r (i-%) ) to 
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Fig.  7 Oblique  or  Curvilinear  Boundary  Conditions 
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the  origin  (see  Figure  (8)).  In  Cartesian  coordinates,  the  volume 
sweep  consumes  the  cell  area  x unit  depth. 
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i-h 


r . - 
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i+%  l 


Ar. 
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l.J 


n r 2 2 

p.  . *tt*  (r.  , -r.  . ) Az . 
i.J  i+h  i-h  j 


( 67) 
( 68) 

( 69) 


Equations  (70)  and  (71)  reveal  the  average  densities  at  the  cell  inter- 
face 
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( 71) 


at  time  (n) . In  order  to  maintain  stability  and  convergence  in  all 
calculations,  integrations  must  be  spatially  and  temporally  centered. 
Thus  in  the  fashion  of  a predictor- corrector  integration,  values  are 
computed  at  time  (n+%)  and  at  i+%,  j+%,  i-%,  j-h  and  these  values  used 
in  the  integration  to  compute  fluid  properties  at  the  center  of  each 
cell  and  at  time  (n+1) . Equations  (72)  and  (73)  generate  cell  interface 
values  of  density  at  time  (n+%) . 
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( 73) 


In  Cartesian  coordinates  the  mass  and  density  is  given  by: 


and 


M?  . = p?  .Ar.Az. 
i,3  i>3  1 3 
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( 74) 


( 75) 


However,  as  r goes  to  infinity,  p (cylindrical)  approaches  p (Cartesian) 
and  therefore  Equations  (69)  through  (73)  are  sufficient  for  both 
coordinate  systems. 

A time  dependent  equation  for  pressure,  based  on  the  conservation 
of  mass,  momentum  and  energy  (Appendix  ( B ))  includes  contributions  from 
pressure  induced  expansion  (or  compression),  ohmic  heating  and  viscous 
dissipation.  All  magnetic  and  electric  terms,  such  as  ohmic  heating, 
may  be  represented  either  by  a magnetic  stress  tensor  employing  the 
second-order  elliptic  magnetic  induction  equation,  as  derived  from 
Maxwell's  relations  or  by  solution  to  a second-order  elliptic  stream 
current  or  potential  equation  as  described  on  page  32.  In  the  first 
case,  currents  are  generated  by  the  induced  magnetic  fields  according 
to  Equation  (22)  and  thus  are  contained  implicitly  in  the  "divergence" 
of  a magneto-stress  tensor.  In  the  second  case,  currents  are  explic- 
itly defined  through  the  use  of  potential  or  (current)  stream  functions 
and  Ohm's  Law.  Either  the  induction  equation  or  the  stream  function/ 
potential  equation  may  be  employed  as  each  equally  represents  the 
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influence  of  electric  and  magnetic  effects  on  the  flow  field.  (Later 
in  this  section  a more  detailed  discussion  of  the  calculation  of 
currents  and  the  electric  field  can  be  found.) 

The  fundamental  purpose  of  time  and  space-centering  all  calculations 
in  Phase  I,  as  developed  by  Matuska,  was  to  avoid  instabilities  resulting 
from  forces  creating  small  momentum  gradients.^  While  p and  j x B forces 
create  severe  gradients,  viscous  forces  tend  to  diffuse  momentum  and 
do  not  pose  a significant  threat  to  stability  as  compared  with  other  MHD 
forces.*  It  is  primarily  for  this  reason  that  pressure  and  electromag- 
netic terms  are  time  and  space  centered,  whereas  viscous  terms  are  not. 
Thermal  conduction  is  also  neglected  at  this  stage  because  of  its  rela- 
tively smaller  contribution  to  the  momentum  and  energy  equations  over  a 
time  step.  Computing  the  pressure  at  the  cell  interface  at  time  (n+y 
(see  Appendix  ( B )): 
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*provided  the  time  step  is  bounded  (Eqns  (16)  and  (17)) 

^Instability  developing  from  severe  gradients  is  eliminated  by  fluxing 
(Phase  II). 
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If  the  current  stream  function  is  employed,  the  space-centered  currents 
and  electric  fields  are  defined  at  time  (n)  by: 
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If  the  electric  potential  is  used,  the  space-centered  currents  and 

electric  fields  become  at  time  (n) : 
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The  choice  of  using  either  the  stream  function  or  potential  is  usually 
dictated  by  the  electrical  boundary  conditions.  If  the  voltage  (or 
potential)  at  the  electrodes  is  known,  the  potential  is  employed.  If 
the  external  currents  at  the  electrodes  are  known,  then  a stream  function 
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is  used.  Further,  since  the  potential  is  constant  on  a conductor  and 
the  stream  function  is  constant  on  an  insulator,  defining  infinity  for 
a particular  generator  might  strongly  influence  the  choice  of  one  method 
over  the  other. 

The  values  of  the  currents  at  the  cell  interfaces  are  computed  by 
using  the  values  of  <j)  and  T of  the  two  cells  adjoining  at  the  interface 
and  employing  the  velocities,  conductivity.  Hall  parameter  and  magnetic 
fields  evaluated  at  the  interface.  The  relation  between  the  stream 


function  and  potential  at  the  cell  center  and  time  (n)  becomes: 
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If  the  magnetic  induction  equation  is  employed  (Rem»l),  the 


magnetic  stress  elements  become: 
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The  Lagrangian  velocities  at  the  interface  at  time  (n+%)  may  now 
be  computed: 
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Having  predicted  the  values  of  pressure,  density,  velocity  and 
currents  at  each  cell  interface  at  time  (n+h) , the  final  stage  of 
Phase  I,  computing  u,v  and  e at  time  (n+1)  (excluding  convection), 
proceeds . 
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The  rate  of  strain  at  each  cell  interface  is  computed  based  on 
values  of  u and  v at  time  (n) . 
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Next,  calculating  the  stress  tensor  elements  at  each  cell  interface 
at  time  (n  ) : 

for  laminar  flow: 
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and  for  turbulent  flow,  the  first  three  viscous  stresses  are  zero  and 
employing  an  eddy  viscosity: 
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If  the  magnetic  induction  equations  are  employed,  the  stresses  become 
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The  change  in  velocities  over  a time  step  results  from  forces  due 
to  pressure,  magnetic  fields  and  gravity. 
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The  change  in  energy  for  each  volume  element  over  a time  step  is 
based  on  contributions  from:  (1)  the  work  done  by  the  pressure  of  the 
surroundings  on  the  volume  element,  (2)  the  work  done  by  viscous  and/or 
magnetic  forces  on  a volume  element,  (3)  the  energy  input  by  thermal 
conduction  into  a volume  element,  (4)  the  work  done  by  the  pondermotive 
(Lorentz)  force  in  driving  the  fluid,  including  Joule  heating  and  (5) 
the  work  done  by  gravity.  Note,  once  again,  if  the  stress  elements 
contain  magnetic  terms  (Rem  »1)  then  the  last  terms  in  Equation  (112) 
and  (113)  are  ignored. 
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Problems  where  the  induced  field  becomes  significant  (Re  »1) 
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requires  a solution  to  the  induction  equations: 
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Problems  where  Re^  <<1,  such  as  an  MHD  generator,  require  solution  to 
Equation  (53) . 

Solutions  to  the  Elliptic  PDE  for  Small  Re 
e. . — m 

There  are  numerous  numerical  approaches  to  solving  Equation  (53). 
Three  methods  were  considered:  Alternating  direction  implicit  (ADI), 
Gauss-Seidel  (GS)  and  Successive  Over -Relaxation  (SOR) . SOR  was  found 
to  converge  more  rapidly  in  all  cases  and  therefore  was  the  most 
promising.  Once  Equation  (53)  is  solved  for  <t>  or  T,  the  electric  fields 
and  currents  are  determined  and  the  pondermotive  force  (jxB)  and  electric 
energy  (j«E)  become  known  quantities  in  the  momentum  and  energy  equations. 
Computation  of  a new  fluid  dynamics  state  will  influence  the  behavior  of 
currents  which  result  in  a "coupled  solution"  necessitating  solving 
Equation  (53)  frequently  if  currents  are  strongly  dependent  on  the  flow 
field  or  infrequently  if  the  currents  are  weakly  dependent  on  the  flow 
field. 
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A discussion  of  the  solution  of  Equation  (53)  by  ADI,  GS  or  SOR 
follows.  ADI  has  already  been  employed  to  solve  the  thermal  magnetic 
diffusion  described  by  Equations  (49)  through  (51)  and  (36) . 

In  the  MHD  generator  under  consideration,  the  magnetic  field  is 
time  independent,  thus  satisfying  Equations  (54)  and  (55)  identically. 

A time  dependent  (induced)  magnetic  field  which  is  frozen  to  the  fluid 
and/or  diffusing  into  the  neighboring  medium  would  create  a time 
dependent  potential  (or  stream  current)  term  in  Equation  (53).  In  this 
case,  it  would  be  necessary  to  solve  the  magnetic  induction  Equations 


(49)  through  (51). 

Considering  the  ADI  method,  the  numerical  solution  to  Equation  (53) 
was  performed  implicitly  by  "sweeping"  along  the  axial  and  radial  (or 
Cartesian)  coordinates  and  summing  the  contributions  of  gradients  in 
both  directions.  Expressing  the  derivatives  in  terms  of  finite 
difference  expressions,  summing,  and  rearranging,  a series  of  simul- 
taneous algebraic  equations  results.  The  coefficient  matrix  of  the 
dependent  variable  representing  these  algebraic  equations  is  in  tri- 
diagonal form  and  is  expeditiously  inverted  without  the  need  for 
iteration.  The  matrix  is  decomposed  into  upper  and  lower  matrices  and 
solved  exactly  equation  by  equation.  The  (zeroth)  first  and  second 
derivatives  (in  the  z-direction)  are  cast  in  the  following  finite 
difference  expressions:* 


+ 4 


hr-]-* 


i,j4VAz 


(123) 


replaces  <j>  if  Equation  (66)  is  to  be  solved  instead  of  (63)  . 
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Equation  (53)  becomes  in  finite  difference  form: 


. , +B  .(b.  , +C  . d>.  . i 

i,i+k  r j1  > j 


(128) 


for  the  i,jth  cell.  Sweeping  across  the  jth  row,  j simultaneous 
equations  result.  In  relaxing  to  the  steady  state  solution:  the  left- 
hand  side  of  Equation  (53)  was  set  = to ((f)  (new)  - (j)  (old)) /At  and 


iterations  proceeded  until  cj>  (new)=  (f)  (old)  or  the  right-hand  side  of 


Equation  (53)  was  equal  to  zero. 

V4+B3VC3*2 

= D3 

(129) 

= D2 

(130) 

WVi 

= D, 

(131) 

where  the  coefficients  A(j),  B(j),  C(j)  and  D(j)  are: 
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(134) 

(135) 


Similar  relations  are  developed  for  the  column  sweep.  The  solution 
to  <|)  occurs  when  the  potential  has  relaxed  to  its  steady  state  value  and 
no  discernible  change  in  (J)  occurs  in  ensuing  iterations. 


The  G-S  technique  relaxes  to  a numerical  solution  by  use  of  the 
algorithm: 


C!  = j + ^-I5i"D3  +Ai^i+1,3'  +Aj^i,j+1+Ci^i-1 , 3+Cj^i,j  - l^/*"Bi+Bj-'  (136) 


or 


where  axial  coefficients  A.,  B.,  C.  and  D.  are  defined  by  Eqns . 

3 3 3 3 7 H 

(132) -(135)  and  radial  coefficients  A..  B.,  C.  and  D.  are 

111  1 

derived  in  the  same  manner. 


SOR  employs  the  GS  method,  with  acceleration  to  convergence 
achieved  by  employing  the  modified  algorithm: 
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or 
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(138) 


(139) 


where  oj  = 1.75  (w  = 0 yields  the  g-s  method). 

Oliver  (58)  discusses  the  influence  of  electromagnetic  properties  on 
the  rate  of  convergence  and  suggests,  in  some  cases,  under-relaxation 
(oo  = 0.2).  SOR  was  found  to  converge  more  rapidly  than  GS  or  ADI  and 
thus  was  the  method  employed  to  solve  Eqn  (53) . 

Results  of  a variety  of  problems  are  presented  in  section  (3.5). 


4>  or  y Boundary  Conditions 

The  electrical  boundary  conditions  on  the  electrodes  as  derived  in 


Appendix  (A. 2)  are: 

6_ 

6rw"  " H6z 


= &J7-CO;  IjW)  = 0:  conductor 


■jjrW)  = -3-^-W) ; = 0:  insulator 


(140) 


(141) 


Equation  (53)  is  completely  described  by  the  boundary  conditions.  In 
addition,  the  electrical  relation  between  the  generator  (internal 
circuit)  and  external  circuit  must  be  specified  in  order  to  provide  a 
complete  set  of  boundary  conditions  necessary  for  solving  the  elliptic 
partial  differential  equation.  The  particular  generator,  e.g.,  Faraday, 
Hall,  Diagonal,*  etc.,  determines  the  nature  of  the  boundary  conditions 
employed  and  further  furnishes  impetus  for  employing  either  <|>  or  ¥,  in 
order  to  determine  the  electric  field  and  currents. 


*The  primary  difference  between  the  Faraday,  Hall  and  Diagonal  generator 
is  the  alignment  of  the  electrode-pairs  in  the  MHD  channel, 
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The  difficult  boundary  condition  to  specify  occurs  at  infinity, 
but  for  the  Faraday  generator,  the  stream  current  function  is  used 
since  at 

z = % f = ! = 0 (142) 

oo 

and  is  constant  up  to  the  first  electrode.  For  the  Hall  generator,  use 
is  made  of  the  potential  because  at 

z = °°,  (b  = 6 = A (143) 

T Too 

is  known,  and  is  constant  up  to  the  first  insulator. 

Appendix  (A. 2)  contains  an  in-depth  discussion  and  derivation  of 
the  electrical  boundary  conditions  in  both  the  electric  potential  and 
stream  current  function. 

Phase  II  (Eulerian  Frame  of  Reference) 


Once  the  new  velocities  are  known,  the  convective  terms  in  the  differ- 
ential equations  can  be  computed  by  transporting  mass  from  a cell 


. n+1  . •if  n+1  . 

i = i(v.  j ->1),  i = l+l (v . i .<1) 
i+h,j  i+k,j  1 

. . n+1  . - . . v n+1  . . 
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(147) 


to  its  neighbors.  In  Equations  (146)  and  (147),  the  densities  are 
updated,  based  on  the  velocities.  The  mass  fluxes  are  computed  in 
Equations  (148)  and  (149)  and  based  on  these  values,  the  momentum,  energy 
and  magnetic  transport  values  are  computed  in  Equations  (150)  through 


(161). 
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Finally,  the  new  mass,  density,  velocities,  energy  and  magnetic  fields 
are  computed  at  time  (n+1)  at  the  center  of  each  cell  based  on  the 
convection  terms  in  phase  II  and  force  terms  in  phase  I. 
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III.  DISCUSSION  AND  APPLICATION  OF  PHENOMENA  INDUCED  BY  HYDRODYNAMIC, 
VISCOUS  OR  ELECTROMAGNETIC  FORCES 

The  effectiveness  of  a numerical  procedure  is  measured  by  its 
ability  to  reproduce  the  results  of  experiments  or  classical  analytical 
solutions.  In  this  section,  there  are  a variety  of  problems  solved 
numerically  which  illustrate  some  fundamental  physical  process  influ- 
encing the  behavior  of  an  electrically  conducting  fluid.  In  each  case, 
the  numerical  results  were  compared  with  experimental  data  or  a closed 
form  analytic  solution.  Once  established  that  the  technique  can  solve 
the  classic  problems,  the  more  challenging  applications  are  considered. 

Problems  are  categorized  into  five  areas:  shocks,  boundary  layers, 
compressible  flow,  diffusion  and  Emf  forces.  Each  subsection  details 
the  make-up  and  solution  of  the  particular  problem  being  investigated. 

3.1  Shocks 

Shocks  were  examined  in  a variety  of  problems:  supersonic  flow 
over  a sharp-nosed  projectile,  shock  tube  flow  with  and  without  magnetic 
fields,  regular-irregular  (Mach)  reflection  generated  by  flow  over  a 
wedge,  supersonic  flow  over  a semi-infinite  cylinder  and  hypersonic  flow 
over  a blunt-nose  re-entry  vehicle. 

A test  was  run  and  compared  with  HULL  to  check  out  the  hydrodynamic 
logic.  A shock  tube  containing  a diaphragm  separating  a low  pressure 
region  (40  atm)  from  a high  pressure  region  (4,000  atm)  was  modeled. 
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After  bursting  of  the  diaphragm,  calculations  proceeded  employing  both 
programs  and  the  results  were  identical  in  both  cases.  Referring  to 
Figure  (9),  a shock  was  initiated  from  a pressure  ratio  of  100  generating 
a particle  velocity  of  1.5*10^  cm/sec.  Under  the  severe  pressure 

gradient  introduced  by  this  test,  no  evidence  of  any  numerical  instabil- 
ity occurred.  This  shock  tube  problem  is  explored  in  greater  depth 
later  in  this  section. 

A problem  of  interest  to  the  aerodynamicist  is  shock  attachment  or 
detachment  over  a sharp-nosed  projectile.  Considering  projectiles  of 
nose  angles  of  20°,  35°  and  45°  in  a Mach  three  airstream,  attached  and 
detached  shocks  were  generated.  Further,  by  changing  the  free  stream 
Mach  number,  the  shock  can  be  re-attached.  Figure  (10)  shows  an  attached 
shock  at  Mach  three  and  angle  20°.  Increasing  the  nose  angle  to  35°, 
the  shock  begins  to  detach.  At  45°,  the  shock  is  further  displaced  from 
the  body.  Decreasing  the  Mach  number  to  two  (30°),  the  shock  originally 
attached,  detaches,  as  seen  in  Figure  (11).  Results  compare  favorably 

with  theory  (89),  which  predicts  shock  angles  of  37°  and  62°  for 
nose  angles  of  20°  and  35°  as  compared  with  shock  angles  of  39°  and  58° 
developed  numerically. 

Referring  to  Figure  (12),  further  analysis  of  the  shock  system 
reveals  that  initially  a shock  (compression)  occurs  followed  by  an 
expansion  about  the  wedge  turning  point.  For  a fixed  inlet  Mach  number, 
the  angle  of  the  projectile  nose  determines  the  location  and  direction 
of  the  oblique  shock.  As  the  projectile  nose  exceeds  a critical  angle, 
a normal  shock  develops  in  the  vicinity  of  the  projectile  nose  and 
detaches  a distance  depending  on  the  inlet  Mach  number  and  nose  angle. 
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Axial  Location  Along  Shock  Tube 

Fig.  9 Comparison  of  Computer  Programs  for 
Shock  Tube  Test  Case 
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The  normal  or  strongly  oblique  detached  shock  compresses  the  flow  from 
supersonic  to  subsonic  conditions.  However  as  the  flow  expands,  a 
sonic  condition  (sonic  line  in  Figure  (12))  is  reached,  wherein  the  flow 
once  again  becomes  supersonic.  Although  this  problem  presents  no 
special  challenge  to  a transient  explicit  finite  difference  procedure, 
other  techniques,  such  as  the  method  of  characteristics,  etc.,  cannot 
treat  both  the  subsonic  and  supersonic  regimes.  Figure  (13)  illustrates 
a detached  shock  for  a 45°  wedge  and  Figure  (14)  depicts  the  transient 
formation  of  an  attached  shock  over  a 20°  wedge. 

In  the  early  1960’s  (65),  studies  were  performed  to  determine 
the  feasibility  of  employing  magnetic  fields  to  control  highly  ionized, 
conducting  external  flow  fields.  Applying  a magnetic  field  of  0-1 
Tesla  to  the  projectile  (20°)  already  computed,  and  assuming  infinite 
conductivity,  the  shock  was  made  to  detach  from  the  body.  Initially, 
a magnetic  field  of  0.5  Tesla  distorted  the  shock  (Figure  (15))  and 
increasing  the  magnetic  field  to  0.75  Tesla  caused  detachment.  A mag- 
netic field  of  1 Tesla  further  detaches  the  shock.  Vehicle  weight 
limitations  prohibited  use  of  onboard  magnets  to  actually  attain  this 
objective. 

Shock  Tube 


Employing  a less  severe  pressure  gradient,  numerical  results  were 
compared  with  shock  tube  theory  and  the  Rankine-Hugoniot  equations. 


Referring  to  Figure  (16a)  and  Equations  (170)  to  (172),  a pressure 


u 

p 


(170) 
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Flow 
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Projectile  (1/3)  Magn.  Field 


Fig.  15  Shock  Detachment  Induced  by 
a Transverse  Magnetic  Field 
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CY-X)  (Y+l)  p2  1/2 
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-2y 

P2fi  (Y-l)(a1/a4)(p2/p1-l)  _|Y'1 

^[1'SQRTU2yH2y+(Y+1)(P2/P1-1))X;I 


(171) 

(172) 


ratio  (p  /p  ])  = 10  and  temperature  ratio  (T^/T^)  = 1,  will  generate  a 
shock  moving  into  the  lower  pressure  region  at  a speed  of  52,800  cm/sec 
and  produce  a particle  velocity  = 28,400  cm/sec  (P^/P-^  is  2.86).  Numer- 
ical results  indicate  a shock  speed  of  approximately  55,600  cm/sec  and 
pressure  ratio  of  2.98.  A temperature  and  density  ratio  across  the 
shock  was  numerically  found  to  be  1.40  and  2.13,  which  compares  favor- 
ably with  1.405  and  2.07,  respectively,  as  predicted  by  theory. 
Computing  upstream  and  downstream  Mach  numbers  relative  to  the  moving 
shock: 


M = C /c  = 53,600/33,000  = 1.625 
x s z 

^2 

where  c = (yp/p) 

My  = (Cs-U)/^  = (53, 600-28, 400)/39, 000  = 0.66 
Table  (1)  compares  the  computed  values  of  p /p  , T2^T i5  ^2^1* 

Up  and  Cs  with  one-dimensional  normal  shock  relations  or  the  Rankine- 
Hugoniot  equations  and  shows  close  agreement  in  all  cases. 


Table  (1)  Comparison  of  Results  for  Mx  = 1.625 


Numerical  Calculation 

Rankine-Hugoniot  Relations 

M 

X 

1.625 

1.625  (GIVEN) 

M 

0.665 

0.66 

y 

P2/Pl 

2.98 

2.92 

p2/pl 

2.13 

2.07 

VT1 

1.40 

1.405 
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Modifying  the  shock  equations  so  as  to  introduce  magnetic  fields, 
the  following  equations  result: 

MHD  Shock  Relations  in  a Moving  Coordinate  System 


PjU  = P2(u-u2) 


Pl+  4+  Pl"2  = P2+  2i+P2CU'U2} 


y Pi  Bi  u v p?  2 z i 

iu[^r  ^ + + 2-1  = p2(u-u2)CYrr  p- + ^rp+  ?<u'u2)  1 


(173) 

(174) 

(175) 


u = shock  speed 
U2  = particle  velocity 
B = magnetic  induction 
P = pressure 

= magnetic  permeability 

p = density 

C = shock  velocity 
s ' 

y = specific  heat  ratio 

For  an  applied  magnetic  field  strength  of  1 Tesla,  the  values  of 
pressure,  temperature  and  velocity  are  modified  as  shown  in  Figure  (16b) 
and  (16c).  Preservation  of  the  Rankine-Hugoniot  equations  which  indicates 
conservation  of  mass,  momentum  and  energy  through  a normal  shock  was 
maintained. 

Regular- Irregular  Shock  Reflection 

Regular-irregular  shock  reflection  has  been  studied  most  recently 
by  numerous  authors  ( 90,  91,  92  and  93) . Theory  governing  the 
transition  from  regular  reflection  (the  formation  of  a reflected  oblique 
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shock  from  an  incident  oblique  shock)  to  irregular  reflection  (the 
formation  of  two  oblique  shocks  and  a normal  shock)  has  been  established. 
The  principal  objective  in  performing  this  calculation  was  to  determine 
the  program's  effectiveness  in  computing  a stable  Mach  stem  or  triple 
point.  No  attempt  was  made  to  study  the  extremely  difficult  and 
(computer)  time  consuming  problems  of  repetitive  triple  point  formation, 
especially  those  emanating  from  an  under -expanded  or  over-expanded  nozzle. 
Figures  (17),  (18),  (19)  and  (20)  illustrate  the  formation  of  this  Mach 
stem.  In  Figure  (17),  velocity  vectors  depict  the  shock  pattern.  In 
Figures  (18)  and  (19),  pressure  and  Mach  intensities  are  shown.  Pressure 
contours  are  displayed  in  Figure  (20)  and  finally  the  normal  shock  of  the 
Mach  stem  is  plotted  in  Figure  (21)  , A triple  point  was  also  computed 
from  flow  exhausting  from  a nozzle  as  shown  in  Figure  (22) . 

Other  calculations  include  a detached  bow  shock  over  a semi -infinite 
cylinder  as  displayed  in  Figure  (23),  and  a re-entry  vehicle  with  a 
configuration  (point  of  inflection)  causing  an  imbedded  shock  (Figure 
(24)). 


3.2  Boundary  Layer 

The  most  fundamental  boundary  layer  problems  investigated  are 
(1)  Couette  flow,  (2)  viscous  flow  over  a flat  plate,  (3)  Rayleigh 
flow  discussed  in  Section  (3.4),  and  (4)  turbulence. 

Couette  flow  consists  of  flow  in  a parallel-wall  channel  where  one 
wall  is  stationary  and  the  other  is  moving.  Two  problems  are  examined: 
(1)  the  fluid  is  non-conducting  and  experiences  only  pressure  and 
viscous  forces  and  (2)  the  fluid  is  conducting  and  experiences  pressure. 
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Fig.  17  Velocity  Vectors  of  Irregular  (Mach)  Reflection 
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Fig.  18  Pressure  Intensity  (Shade)  of  Mach  Stem 
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Fig.  19  Mach  Number  Intensity  (Shade)  of  Mach  Stem 
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Fig.  20  Pressure  Contours  of  Mach  Stem 
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Fig.  24  Interacting  Shocks  off  a Re-Entry  Vehicle 
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viscous  and  Lorentz  forces  when  under  the  influence  of  an  applied 
magnetic  field. 

Couette  Flow 

Considering  a non-conducting  incompressible  fluid,  the  equation 
of  motion  in  the  x-direction  reduces  to: 

4t  (u)  = (176) 

At  steady  state.  Equation  (176)  becomes: 

few  - (177) 

Applying  the  following  boundary  conditions: 
u = 0,  r=0;u  = U,  r = °° 
a solution  of  the  form 

u = (178) 

n n 

is  obtained,  where: 

p = m (-  fe(p))  (179) 

The  cases  for  P =-3,-2,  -1  (backflow),  0 (constant  pressure),  +1, 

+2  and  +3  were  run  with  results  in  close  agreement  with  Schlicting 
(94) . A disparity  of  approximately  10%  was  caused  by  a coarse  mesh 
(ten  cells)  and  a slightly  varying  time- dependent  solution  (Figure 
(25)). 

Next,  considering  the  transient  Couette  problem  (Stokes'  First 
Problem)  at  a constant  pressure,  and  applying  the  same  initial  and 
boundary  conditions  as  before,  the  transient  solution  is  developed. 
Results  are  shown  in  Figure  (25)  with  good  comparison  to  the  data 
presented  in  Schlicting  (94) . 
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Fig.  25  Couette  Flow.  Transient  and  Steady  State 
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Couette  Flow  - Thermal  Distribution 


The  temperature  distribution  in  Couette  flow  is  governed  by  the 
energy  equation  and  reduces  to: 

o = -x|t(lt(T))+Vl{lt(u:)}{ltCu)}  (180) 


for  the  1-D,  steady  case  with  constant  thermal  conductivity  and 

viscosity.  If  both  walls  are  maintained  at  constant  temperature 

then  the  solution  of  Equation  (180)  is  parabolic  and  its  analytic 

solution  is  shown  in  Table  (2)  along  with  numerical  results. 

Table  (2)  Thermal  Distribution  in  Couette  Flow 


X/L 

T/TW 

T/TW 

Analytic 

Numerical 

0. 

1.0000 

1.0000 

0.1 

1.3600 

1.3600 

0.2 

1.6400 

1.6397 

0.3 

1.8400 

1.8394 

0.4 

1.9600 

1.9590 

0.5 

2.0000 

1.9988 

0.6 

1.9600 

1.9587 

0.7 

1.8400 

1.8388 

0.8 

1.6400 

1.6391 

0.9 

1.3600 

1.3595 

1.0 

1.0000 

1.0000 

Couette  - MHD  Flow 


The  equation  of  motion  in  the  axial  direction  (neglecting  radial 
momentum)  is  given  by: 


1 6 


1 (5 


^(u)+u^(u)+v^(u)  = -p  37(P)+  p 6F^67(u))+ 


1 ’xB 


(181) 


Employing  Ohm’s  Law,  the  Lorentz  force  jxB  is  replaced  by 

VxB  k _ 16 

jxB  = — xB  = — - t—  (B  B) 

J y y 6r  z 

where  k is  the  unit  normal  vector 


(182) 
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where  B is  the  induced  magnetic  field  and  B is  the  applied  magnetic 
field.  Also,  from  the  magnetic  induction  equation 


5 


6tCV  = - 


VxVxB  k 
z 


ycr 


+ VxvxB  k 
z 


at  steady  state,  this  equation  reduces  to: 


i- « ^ 5 


(183) 


(184) 


and  upon  integration  yields: 


- t— (B)  B 
y or  z 


= auB 


(185) 


The  Lorentz  force  then  becomes  uBz  and  the  equation  of  motion  at  steady 
state  (constant  viscosity)  reduces  to: 


6 ,6 


= 67(p)+CTuB2 


(186) 


with  boundary  conditions: 


u = u (r  = 0),  u = 0 (r  = h) 


Non-dimensionalizing  u and  r to  the  free  stream  velocity  and  channel 
width,  respectively,  the  solution  to  Equation  (186),  neglecting  the 


pressure  gradient,  is 

SINH(HaY) 

U = SINHfH  ) 

cL 

COSH(Ha)-COSH(HaY) 
Bz  = SINH(H  ) 

cl 


(187) 

(188) 


where  H 

a 


is  the  Hartmann  number 


it 


2 

a 


2 2 

0Bh  p 
o 

U 


(189) 
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U is  the  non-dimensional  velocity  and  Y is  the  non-dimensional  width. 

As  H goes  to  zero 
a. 

H Y 

u = -2-  = Y (190) 

ri 

a 


If  B also  vanishes  the  solution  for  couette  flow  results, 
z 

Comparison  of  numerical  and  analytic  results  are  shown  in  Table  (3) 
with  good  agreement  in  all  cases. 

Table  (3)  Couette  Flow  with  a Transverse  Magnetic  Flow 


Analytic 

Solution 

Numerical 

t 

Solution 

y/h 

u/U0 

B* 

u/U 

0 

B* 

0.0 

0. 

0.240 

0. 

0.243 

0.1 

0.02 

0.240 

0.025 

0.243 

0.2 

0.05 

0.238 

0.051 

0.241 

0.3 

0.08 

0.234 

0.081 

0.238 

0.4 

0.12 

0.230 

0.118 

0.230 

0.5 

0.18 

0.220 

0.166 

0.219 

0.6 

0.22 

0.200 

0.234 

0.205 

0.7 

0.30 

0.170 

0.330 

0.178 

0.8 

0.44 

0.120 

0.472 

0.142 

0.9 

0.69 

0.070 

0.683 

0.086 

1.0 

1.00 

0. 

1.00 

0. 

B*  = normalized  induced  magnetic  field 

f 

flow  not  exactly  steady  or  incompressible 
Flat  PLate 


The  boundary  layer  along  a flat  plate  (Figure  (26))  is  described 

by  the  following  boundary  layer  equations  and  boundary  conditions: 

6 


u- 


|yU)+  |^(v)  = o 


(191) 

(192) 


r = 0»u  = v = 0> 


» r = <»  . u = u 


(193) 
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Fig.  26  Laminar  Boundary  Layer  over  a Flat  Plate 
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Blasius  developed  a series  solution  to  the  transformed  ordinary  differ- 
ential equation  which  replaced  the  partial  differential  equations 
described  above. 

Blasius  predicted  a boundary  layer  thickness  <5  equal  to  5x/Re  ^ . 

X 

3 

In  Figure  (26)  numerical  results  for  the  case  where  p = 0.001  gm/cm  , 

]i  = 0.0001  cp,  u = 833  cm/sec  are  shown.  The  boundary  layer  thickness 
at  x = 0.048  cm  was  found  to  be  0.011  cm  which  compares  favorably  with 
the  Blasius  prediction  of  0.01  cm. 

MHD  Flow  over  a Flat  Plate 

Incompressible  viscous  flow  over  a flat  plate  in  the  presence  of 
a transverse  magnetic  field  was  investigated  by  Rossow  (33) . The 
flow  in  the  boundary  layer  is  described  by: 


P(u^(u)+v^(u))+  |-Cp)  = -obA+  ^CP^Cu)) 


and  in  the  inviscid  free  stream: 

^CP)  = -°B*u 


6z 


(u)  = 0 


(194) 


(195) 


and  with  boundary  conditions 
u = 0,  y = 0;  u = u,  y = tt. 

Applying  an  external  magnetic  field  to  the  previously  discussed 
flat  plate  problem,  and  assuming  now  that  the  fluid  is  electrically 
conducting,  the  boundary  layer  becomes  distorted  as  shown  in  Figure  (26) . 
Turbulent  Jet 

The  equations  of  motion  applied  to  a turbulent  problem  are: 

feu)+ui(u)+v^]  = £ feco  (196) 


105 


AEDC-TR-77-1  05 


6i<u)+  = 0 


6r 


(197) 


Schlicting  discusses  the  free  turbulent  jet  flow  problem  (Figure 
(27))  and  presents  theoretical  results  of  Gortler  and  measurements  made 
by  Reichardt.  Employing  a virtual  kinematic  viscosity  based  on  the 
Prandtl  hypothesis: 


e 


Ax(UrU2) 


(198) 


where  and  are  velocities  of  two  mixing  streams. 

The  equations  of  motion  for  the  steady  case  reduce  to: 

u^CuVv^Cu)  = e^C^Cu))  (199) 


Solution  of  this  equation  by  similarity  transformation  yields  an 
equation  identical  to  that  of  the  Blasius  equation  for  a flat  plate, 
but  with  different  boundary  conditions.  Based  on  measurements  performed 
by  Reichardt  ( A is  evaluated)  an  eddy  kinematic  viscosity  is  computed  from 
empir-ieal  data  and  excellent- results  between  theory  and  experiment  were 
obtained.  The  solution  to  the  Blasius  equation  is  the  error  function, 
and  u was  found  to  be: 

(U  +U  ) u -u 

u = -\^1+  u^j-ERFfe)};  e = (200) 

X 4i 


This  problem  was  solved  numerically  and  results  are  compared  with  those 
of  Gortler  and  Reichardt  in  Figures  (28)  and  (29) . 
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Fig.  28  Experimental  and  Numerical  Data  for 
Free  Jet  Turbulent  Flow 
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Fig.  29  Numerical  Results  for  Free  Jet  Turbulent  Flow 
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3.3  Compressible  Flow 

Compressible  flow  problems  consisted  of  internal  flow  in  a nozzle 
and  external  flow  around  an  RV  and  M-117  warhead. 

Nozzle  Flow 

Flow  in  a nozzle  was  investigated  with  attention  focused  on  the 
phenomena  of  choking,  shocks  and  flow  separation. 

Analytic  solutions  to  certain  one-dimensional  gas  dynamic  problems 
are  easily  developed.  For  a perfect  gas,  isentropic  flow  and  varying 
area,  the  conservation  equations  yield  the  following  thermodynamic 
relations:  p 

-A  = (1+  )Y/(Y-1)  (201) 

Px  2 x 


XliH  f'CY-D 

2 x 


(202) 


T 

o 

T" 

x 


(203) 


\r  M T 1/2 

/ ■ ir<r-> 

X y y 


where  P,p,T,A  and  M denote  pressure,  density,  temperature,  area  and 
Mach  number,  respectively,  at  chamber  conditions  (o)  or  stations  (x) 
and  (y) . 

Considering  flow  at  constant  area,  the  conservation  equations 
become : 
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piui  = 


P2U2 


P1+P1U1  = PVP->U 
2 


2 r2“2 
2 


U1  U2 
Hl+  2"  = V £ 


(205) 

(206) 

(207) 


where  and  are  the  total  enthalpy  per  unit  mass.  Equations  (205) 
through  (207)  hold  before  and  after  the  shock.  Equations  (205)  and 
(207)  are  valid  for  Fanno  Flow  (friction) , whereas  Equations  (205)  and 

(206)  are  satisfied  for  Reyleigh  flow  (heat  transfer) . 

For  a normal  shock  these  equations  are  rearranged  to  yield  the 

Rankine-Hugoniot  expressions: 


P2  2y  2 

^=1+  yTT(mi_1) 


u_  cy+i)m; 


Pi 


(y-l)M1+2 


2y 


[1+  — CM^-1)]1/(1'Y)[ 


(y+i)m1  y 

-f 


-1 


Y+l 


(y-i)m1+i 


(208) 

(209) 


(210) 


A fundamental  problem  of  obvious  considerable  importance  to  the 
aerospace  engineer  is  flow  in  a nozzle  where  the  inviscid  equations 
described  above  hold.  Problems  investigated  in  this  section  concern 
compressible,  inviscid  flow  where  choking,  shocks  and  heat  and  pressure 
losses  are  experienced. 

Nozzle  flow  was  examined  for  choking;  flow  separation;  stationary 
shocks;  and  1-D  influence  of  area  change  on  pressure,  density  and 
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temperature.  A 2-D  calculation  was  performed  with  a chamber  to  ambient 
pressure  ratio  of  11.6.  Table  (4)  compares  the  isentropic  Mach  number 
and  the  pressure,  density  and  temperature  ratios  to  the  area  ratio  for 
both  analytic  (1-D)  and  numerical  (2-D)  results  (see  Figure  (30)). 
Conditions  at  the  throat  were  found  to  be  M = 1.,  p/p  = 0.45,  T/T  = 
0.90,  p/pq  =0.5  which  agrees  within  10-20%  of  the  1-D  analytic 
solutions.  The  2-D  effects,  although  not  severe,  are  significant 
enough  to  be  considered  in  future  calculations. 

Table  (4)  Isentropic  Conditions  in  the  Nozzle 


z 

P 

U 

P 

T 

M 

axial  position 

0.0 

0.0150 

0 

11.59 

11.7.2 

0 

0.2 

0.0105 

7515 

8.04 

116.6 

0.228 

0.4 

0.0104 

6411 

8.25 

120.1 

0.191 

0.6 

0.0106 

5352 

8.58 

122.9 

0.159 

0.8 

0.0106 

5110 

8.68 

124.6 

0.150 

1.0 

0.0105 

5465 

8.67 

124.9 

0.169 

1.2 

0.0104 

6227 

8.65 

125.7 

0.182 

1.4 

0.0104 

7335 

8.64 

125.9 

0.214 

1.6 

0.0104 

8783 

8.61 

126.0 

0.256 

1.8 

0.0103 

10619 

8.54 

126.0 

0.310 

2.0 

0.0101 

12934 

8.40 

125.8 

0.377 

2.2 

0.00981 

15846 

8.11 

125.3 

0.463 

2.4 

0.00931 

19523 

7.62 

124.1 

0.573 

2.6 

0.00853 

24190 

6.85 

121.8 

0.717 

2.8 

0.00744 

29261 

5.78 

117.4 

0.882 

throat 

3.0 

0.00639 

33854 

4.75 

112.9 

1.041 

3.2 

0.00549 

37800 

3.91 

108.1 

1.188 

3.4 

0.00473 

41254 

3.24 

103.8 

1.324 

3.6 

0.00407 

44414 

2.67 

99.6 

1.455 

3.8 

0.00348 

47371 

2.19 

95.5 

1.585 

4.0 

0.00296 

50139 

1.78 

91.5 

1.715 

4.2 

0.00252 

52709 

1.46 

87.6 

1.841 

4.4 

0.00215 

55071 

1.19 

84.1 

1.964 

4.6 

0.00185 

57215 

0.985 

80.9 

2.079 

4.8 

0.00161 

58896 

0.8333 

78.45 

2.175 
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Figure  30  Isentropic  Nozzle  Flow 
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Figure  30  (Continued) 
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Initially,  the  chamber  pressure  is  so  low  that  separation  occurs 
(Figures  (31)  and  (32)).  The  chamber  pressure  was  then  increased  in 
order  to  generate  a normal  shock  in  the  nozzle.  As  the  chamber  pressure 
is  increased  further,  the  stationary  position  of  the  shock  moves  toward 
the  aft  end  of  the  nozzle.  The  Rankine-Hugoniot  equations  were  again 
obeyed. 

Re-entry  Vehicle  (RV) 

A re-entry  vehicle  was  examined  under  inviscid  and  viscous 
conditions  at  hypersonic  speeds  (M  = 22) . Figures  (33)  and  (34) 
illustrate  the  bow  shock  and  region  of  undisturbed  flow  for  both  the 
inviscid  and  viscous  cases.  In  the  latter  case,  the  influence  of 
viscosity  is  seen  in  the  development  of  a laminar  boundary  layer  on  the 
surface  and  a vortex  being  formed  in  the  rear  of  the  RV. 

M-117  Warhead 

The  aerodynamic  characteristics  of  an  M-117  warhead  were  examined 
under  subsonic,  transonic  and  supersonic  inviscid  conditions.  Four 
free  stream  Mach  conditions  were  studied:  M =0.5,  M =0.88,  M =1.14 
and  M^  = 1.80.  Figures  (35)  through  (37)  represent  contours  for  the  four 
cases  stated  above.  Figures  (38)  and  (39)  illustrate  the  pressure 
coefficients  for  the  subsonic  and  transonic  cases  and  results  are  com- 
pared with  experiment. 


3,4  Diffusion 

The  time  dependent  diffusion  equation  for  heat  conduction  (energy 
equation),  magnetic  diffusion  (induction  equation)  and  viscous  transport 
(momentum  equation)  was  solved. 
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31  Transient  Nozzle  Flow,  Separation  and  Shock 
Formation 
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Fig.  32  (Continued) 
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Fig.  34  Re-Entry  Viscous  Solutions 
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M-117  Transonic  L 


Fig.  36  M-117  Pressure  Contours,  = 0.88 
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Examining  the  momentum,  energy  and  induction  equations  and  elimi- 
nating all  convective  (vV)  and  hydrodynamic  (Vp)  effects,  the  one- 
dimensional  equations  reduce  to: 


6 r . 16,6,^ 
6t"  u = p 


(211) 


V 

V 

Allowing  for  the  diffusivities  to  be  constant  and  equal  to  one: 

1 


(212) 


(213) 


y _ , . * 
p ’ 


pCv  = 1 5 % = 1 


(214) 


Equations  (211),  (212)  and  (213)  become  identical  and  result  in  similar 
solutions  for  the  same  initial  and  boundary  conditions. 

For  example,  given  a body,  initially  at  an  internal  temperature  of 
100°K  and  an  external  (environmental)  temperature  of  200° K as  shown  in 
Figure  (40)  it  is  desired  to  find  the  increase  in  internal  temperature 
as  a function  of  time.  A closed  form  analytic  solution  to  Equations 
(211)  through  (214)  has  been  obtained  for  the  time  dependent  problems 
posed  above.  In  all  cases,  the  transient  solution  agreed  with  the 
analytic  results  to  any  desired  accuracy  by  refining  the  mesh  and  time 
step.  Figure  (40)  and  Table  (5)  illustrate  the  compatibility  between 
the  numerical  results  and  the  analytic  solution.  Identical  results  were 
obtained  by  solving  the  momentum  and  induction  equations  with  analogous 
boundary  conditions . 
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Table  (5)  Comparison  between  Numerical  and  Analytic  Solutions 
for  the  Diffusion  Equation. 


CENTERLINE 

RESULTS 

NUMERICAL 

ANALYTIC 

TIME 

U or  T or 

B 

U or  T or 

B 

sec 

cm/sec  °K 

gauss 

cm/ sec  °K 

gauss 

0.0 

100.0 

100.0 

0.1 

103.8 

105.0 

CM 

O 

121.6 

122.0 

0.3 

138.5 

139.5 

0.4 

152.0 

152.0 

LO 

o 

162.5 

162.5 

0.6 

170.7 

170.5 

0.7 

177.2 

177.0 

o 

00 

182.2 

182.0 

0.9 

186.1 

186.0 

1.0 

189.1 

189.0 

Finally,  a pressure  pulse  was  generated  by  disturbing  the  left 
boundary  and  allowing  the  sound  wave  to  propagate  to  the  right  boundary, 
reflect,  and  return  to  the  point  of  creation.  Figure  (41)  illustrates 
this  wave  configuration  moving  at  sound  speed  = (yp/p)^ or  approxi- 
mately 30,000  cm/sec. 


3 . 5 Electric  and  Magnetic  Fields 

Solution  to  the  equations  of  motion  for  a conducting  fluid  requires 
that  the  current  and  the  magnetic  and  electric  fields  be  known  at  every 
position  within  the  fluid.  As  discussed  in  Section  (2),  for  high 
magnetic  Reynolds  numbers,  the  current  and  electromagnetic  fields  are 
computed  based  on  the  magnetic  induction  equation  and  Ohm's  Law.  For 
flow  with  low  magnetic  Reynolds  number,  an  electric  potential  or  current 
stream  function  is  used  to  calculate  the  electric  field  and  current 
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Fig.  41  Propagating  Sound  Wave 
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distribution  where  the  induced  magnetic  field  is  considered  negli- 
gible by  virtue  of  its  low  magnetic  Reynolds  number. 

Employing  the  finite  difference  equations  and  boundary  conditions 
discussed  in  Section  (2),  several  simple  low  magnetic  Reynolds  number 
problems  were  solved  using  the  current  stream  function  defined  by 
Equation  (65).  Considering  one  electrode-pair  with  no  Hall  current,  a 
solution  to  Equation  (53)  was  attained,  using  the  method  of  Successive 
Over-Relaxation.  Based  on  this  solution, the  current  vectors,  the 
current  stream  function,  the  electric  potential,  were  calculated  and  are 
shown  in  Figures  (42)  to  (45) . A calculation  was  performed  for  Hall 
Parameter  = 5 with  results  shown  in  Figure  (46) . Figure  (47)  depicts 
the  convergence  of  the  current  stream  function.  Finally,  three  electrode- 
pairs (3  = 2)  were  analyzed  in  the  same  manner  and  results  are  graph- 
ically displayed  in  Figures  (48)  and  (49). 

Figures  (50)  through  (53)  show  the  transient  current  stream  lines 
when  a shock  wave  is  passing  through  the  single  electrode-pair  channel . 

As  the  shock  enters  the  channel,  an  electric  field  is  induced  since  the 
EMF  ahead  and  behind  the  shock  wave  are  different.  Eddy  currents  are 
set  up  resulting  from  this  electric  field.  However,  the  boundary 
conditions  of  the  current  stream  function  at  the  channel  exit  (and 
entrance)  requires  a uniform  ¥ across  the  duct.  In  order  to  satisfy 
this  boundary  condition,  a secondary  current  eddy  is  set  up  opposite 
the  principal  eddy  induced  by  the  shock  wave.  Figure  (42)  shows  the 
undisturbed  current  streamlines  and  Figures  (50)  through  (53)  represent 
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Fig.  43  One-Electrode  Pair.  Electric  Potential  Contours 
and  Shading  Plots 
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Fig.  44  One  Electrode-Pair.  Current  Vectors. 
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Fig.  45  One-Electrode  Pair,  3-D  Plots.  Current  Stream 
Function  and  Electric  Potential 
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Fig.  49  Three  Electrode-Pairs  (3  = 2). 

Current  Stream  Function  and  Current  Vectors 


Fig.  50  Initial  Formation  of  Current  Eddies 
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Fig.  52  Eddies  Leaving  the  Channel 
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different  times  as  the  shock  wave  passes  through  the  channel.  When 
the  shock  wave  leaves  the  duct,  the  current  stream  function  relaxes  to 
its  undisturbed  initial  state. 
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IV.  MODELING  OF  AN  MHD  GENERATOR 

The  fundamental  problems  associated  with  modeling  an  MHD  generator 
(Figure  54)  concerns  the  treatment  of: 

(1)  gas  dynamic  effects  such  as  shocks  and  boundary  layers, 

(2)  electromagnetic  effects,  and 

(3)  the  transient  coupling  between  these  two  sets  of  fields. 

In  Section  (3) , gasdynamic  and  electromagnetic  phenomena  were  examined 
independently  through  application  to  problems  categorized  as  either 
strictly  aerodynamic  or  electromagnetic  in  nature.  The  strong  inter- 
action between  gasdynamic,  viscous  and  electromagnetic  forces  will  now 
be  examined. 

Demonstration  of  the  influence  of  the  Lorentz  force  (jxB)  on  the 
flow  field  and,  simultaneously,  the  influence  of  velocities  and  viscous 
shear  on  currents  and  electric  fields  is  accomplished  by  investigating 
the  following  three  cases  (see  Figure  (55)): 

(A)  A nozzle-generator-diffuser  system  with  five-electrode  pairs 
is  examined  under  inviscid  conditions;  enphasis  is  placed  on  modeling 
the  entire  energy  conversion  system.  The  applied  magnetic  field  is 
shown  in  Figure  (56)  and  design  parameters  are  listed  in  Table  (6) . 
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Figure  56  Applied  Magnetic  Field 
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TABLE  6.  MAGNETOHYDRODYNAMIC  GENERATOR  CONDITIONS 
Thermodynamic  Conditions 


Chamber 

Ambient 

Pressure  5-10  atm 

Pressure 

1 atm 

Temperature  2500°-3000°K 

Temperature  270 °K 

Density  0.0005  gm/cm3 

Density 

0.0013  gm/cm3 

Equation  of  State: 

P = pRT 

Specific  Heat 

Ratio : 

y = 1.15 

Gas  Molecular 

Wt: 

MW  = 21 

Geometry 

Nozzle 

Diffuser 

Expansion  Ratio:  2 

Expansion  Ratio:  2 

Length:  10  cm 

Length : 10  cm 

Generator 

Electrodes 

Length:  200  cm 

Length:  1.0  cm 

Height:  20  cm 

Height:  0.2  cm 

Type : Faraday 

Insulation  n , 

Thickness:  °’4  cm 
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(B)  An  MHD  channel  containing  two  electrode-pairs.  Start-up  is 
achieved  by  applying  an  external  magnetic  field  of  strength:  2-5 
Teslas  and  fluxing  a gas  of  constant  conductivity:  1-10  Mhos.  The 
creation  of  current  (-avB)  and  subsequently  the  ponder motive  (Lorentz) 
force  jxB  is  examined  as  a function  of  time. 

(C)  An  MHD  channel  containing  8-electrode  pairs.  The  steady 
state  solution  of  currents,  electric  fields,  <J>  and  i|j  under  inviscid  and 
viscous  conditions  is  studied.  The  electrical  conductivity  and  Hall 
parameter  are  considered  functions  of  thermodynamic  state  properties 
and  governed  by  the  following  relations: 


cr*  ,-prefw  T ^ 

a = •) 

1+8  P Tref 


B (tesla)  fpref. 
= 2 1 P j 


(215) 


(216) 


The  viscous  boundary  layer  was  assumed  turbulent  and  described  by  an 
eddy  viscosity  model  employing  the  Prandtl  mixing  length: 


T = 


(217) 


£ = 


(218) 
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V.  RESULTS  OF  MHD  MODEL 

Results  of  the  three  cases  modeled  in  Section  (4)  are  now  described. 

5.1  Case  (A):  Nozzle-Generator-Diffuser 
System;  Inviscid  Conditions 

Start-up  of  a generator,  as  for  a wind-tunnel,  consists  of  a 
shock  moving  down  the  channel  and  out  the  diffuser.  Figure  (57) 
illustrates  a 3-D  view  of  the  shock  (Mach  number)  and  the  current  stream 
function.  Figure  (58)  graphically  describes:  Mach  contours,  velocity 
vectors,  i (j  contours  and  current  vectors.  A three-dimensional  view  of  if) 
is  shown  in  Figure  (59) . Figure  (60)  illustrates  the  coupling  between 
gasdynamic  and  electromagnetic  fields.  The  velocity  vectors,  current 
stream  function  contours  and  a 3-D  view  of  the  current  stream  function 
are  shown  at  three  time  intervals  for  this  three-electrode  pair  genera- 
tor. Initially,  a shock  forms  and  moves  to  the  exit  of  the  nozzle  just 
preceding  the  first  electrode.  An  eddy  current  forms  behind  this  shock 
(top  of  figure).  As  soon  as  the  shock  moves  into  the  channel  where  the 
first  electrode-pair  is  located,  currents  form  on  all  three  channels  and 
are  shorted  between  electrodes.  As  the  gas  flow  continues,  the  currents 
flow  between  anode-cathode  pairs  and  the  short  is  eliminated. 

5.2  Case  (B) : MHD  Channel;  Start-Up 

Flow  in  a simple  two-electrode-pair  channel  (20  cm  x 40  cm)  was 
examined  when  operating  with  an  applied  magnetic  field  turned  off  and 
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then  on.  Figures  (61),  (62)  and  (63)  illustrate  the  results.  When 
the  magnetic  field  is  off,  the  flow  reaches  an  unimpeded  steady  state 
velocity  of  100,000  cm/sec  as  would  be  expected  since  no  dissipative 
(inviscid,  frictionless)  forces  exist.  However,  when  an  external 
magnetic  field  of  2 Tesla  is  applied,  the  velocity  decreases  down  the 
channel  since  the  pondermotive  force  decelerates  the  flow.  The  current 
stream  function  ip  on  the  boundary  was  determined  by  integrating  the 
current  flux  across  each  electrode  and  recognizing  that  ip  is  constant 
along  an  insulator.  Initially,  the  velocity  was  zero  so  no  net  current 
flowed.  As  the  velocity  increased,  the  current  increased.  In  turn, 
the  current  produced  an  impeding  (Lorentz)  force  to  the  flow,  and  the 
velocity  eventually  reached  equilibrium  resulting  in  a steady  state 
current  distribution. 

5.3  Case  (C) : MHD  Channel;  Turbulence 

A channel  containing  eight  electrodes  was  studied  under  inviscid 
and  viscous  (turbulent)  conditions.  Figures  (64)  and  (65)  contain 
results  for  both  calculations.  Considering  the  inviscid  case,  first, 
the  current  density  (j)  current  stream  function  (ip)  and  electric 
potential  (cf>)  distributions  are  illustrated  in  Figures  (64)  and  (65) . 
Employing  a turbulent  Prandtl  mixing  length  model,  the  current  dis- 
tributions are  perturbed  as  shown  in  Figure  (65)  for  one-electrode 
pair. 

Further  investigations  of  the  coupling  nature  between  gasdynamic, 
viscous  and  electromagnetic  forces  is  a logical  extension  of  the  brief 
results  presented  here. 
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Figure  61  MHD  Generator  Start  Up.  Current  Stream  Function 
and  Current  Vectors 
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Figure  63  Transient  3-D  Views  of  Current  Stream  Function 
for  a Five-Electrode  Pair  Channel. 
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VI.  CONCLUDING  REMARKS 

6 . 1 Notes  on  the  Code 

Limitations  to  the  numerical  procedure  discussed  in  this  disserta- 
tion can  be  categorized  into  the  following  eight  groups: 

Computer  Time 

The  primary  disadvantage  in  employing  a finite  difference  technique 
to  the  types  of  problems  concerning  engineers  and  physicists  is  computer 
time  or  computational  speed.  Where  other  methods  arrive  at  solutions 
rapidly,  this  technique  may  require  hours  or  even  days.  A two-dimensional 
transient  problem  has  three  coordinates:  two  spatial  and  one  temporal. 
Given  a mesh  of  approximately  100  cells  in  each  direction  and  a calcula- 
tion performed  over  approximately  1000  time  iterations  (cycles)  results 
in  100  x 100  x 1000  = ten  million  cell-cycle  solutions  to  the  conserva- 
tion of  mass,  momentum  (r  and  z) , energy,  magnetic  induction  or  elliptic 
equations.  Since  standard  explicit  finite  difference  routines  compute 
on  a CDC  6600  at  a rate  in  excess  of  1 millisecond  per  cell  per  cycle, 
a typical  inviscid,  non-MHD  transient  problem  will  require  10, 000  seconds 
or  two  or  three  hours  of  central  processor  time. 

However,  it  has  been  found  that  many  problems  do  not  require  the 
resolution  (10,000  cells)  as  depicted  above  nor  must  they  necessarily 
be  carried  through  to  1,000  time  steps.  Two-dimensional  problems  pre- 
sented in  this  report  range  from  as  low  as  one  minute  to  as  much  as 
three  to  four  hours  of  CDC  6600  CPU  time,  depending  on  geometry. 
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boundary  conditions,  particle  velocity  and  the  inclusion  or  exclusion  of 
viscosity,  magnetic  and/or  electric  fields.  A three-dimensional 
transient  problem  would  require  from  30  minutes  to  200  hours.  With  the 
inception  of  faster  computers,  the  CDC  computational  times  may  be  re- 
duced by  a factor  of  5,  10  or  even  50. 

Since  the  advantages  of  finite  difference  techniques  are  quite 
evident  in  that  they  allow  for  a complete,  reasonably  unrestricted  solu- 
tion to  the  governing  conservation  equations,  it  would  be  only  reasonable 
to  expect  some  price  to  pay  in  return.  If  one,  on  the  other  hand  takes 
into  account  the  diversity  of  problems  that  can  be  solved  by  just  this 
one  procedure,  as  opposed  to  using  numerous  other  methods  or  approaches, 
each  restrictive  in  their  very  nature,  the  CP  time  requirements  becomes 
a less  significant  handicap. 

Inaccurate  Material  Properties: 

Problems  solved  in  this  report  all  assumed  a gas  which  could  be 
characterized  as  obeying  the  perfect  gas  law,  or  represented  by  an 
equation  of  state  which  nearly  describes  this  ideal  fluid.  Since,  hydro- 
dynamically,  pressure  is  related  to  energy  and  density  through  this 
equation  of  state,  a complete  breakdown  in  accuracy  occurs  when  the  equa- 
tion of  state  is  unreliable.  Similarly,  a poor  viscous  model  (real  or 
eddy  coefficient  of  viscosity)  masks  the  influence  of  the  viscous  stress 
tensor  resulting  in  a distorted  boundary  layer  and  adjacent  inviscid 
flow  field.  The  electric  and  magnetic  fields  are  significantly  in- 
fluenced by  the  electrical  conductivity.  Severe  error  develops  when  the 
conductivity  is  unreliable.  Other  material  properties  perturb  the  flow 
field  similarly. 
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Unrefined  Grid: 

Depending  on  the  nature  of  the  problem  as  dictated  by  the  geometry 
and  boundary  conditions  disturbing  the  flow,  zone  resolution  may  be  so 
demanding;  i.e. , 10,000,  50,000,  100,000  cells,  etc.,  that  a course 
mesh  (employing  less  cells)  may  not  accurately  reflect  true  hydrodynamic 
or  viscous  behavior  because  of  discretization  errors  (first  order  trun- 
cation errors  related  to  the  cell  size).  In  particular,  a properly 
computed  boundary  layer  may  require  from  ten  to  twenty  cells  across  its 
thickness  in  order  for  energy  and  momentum  contributions  to  the  entire 
flow  field  be  accurately  determined.  However,  in  order  to  avoid  large 
ratios  in  the  cell  size  (a  square  cell  yields  a minimum  truncation 
error,  whereas  a rectangle  of  aspect  ratio  > 2.5  may  result  in  numerical 
distortion)  the  remaining  inviscid  flow  field  must  be  divided  into  cells 
of  the  same  order  as  in  the  boundary  layer;  thus,  a fully  viscous  2-D 
calculation  may  require  a grid  resolution  necessitating  excessive  com- 
puter time. 

Boundary  Conditions: 

Unknown  or  poorly  defined  boundary  conditions  results  in  a costly 
trial  and  error  procedure  where  the  solution  corresponding  to  a pre- 
scribed boundary  condition  may  not  be  representative  of  the  actual 
physical  problem  at  hand.  Further,  a commonly  employed  uniform  flow 
boundary  condition  may  occur  so  far  from  the  region  of  disturbance  that 
the  grid  resolution  becomes  unwieldy. 
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Three-Dimensional  Effects: 

Unless  a problem  is  planar  or  2-D  axisymmetric,  variations  in  flow 
properties  in  the  third  dimension  may  render  a 2-D  solution  meaningless. 
Continuum: 

The  primary  assumption  of  this  finite  difference  technique  is  that 
the  medium  may  be  treated  as  a continuum  and  flow  properties  over  a 
finite  discrete  cell  do  not  vary  significantly.  However,  when  the  mean 
free  path  of  the  fluid  particle  is  not  many  orders  of  magnitude  less 
than  a cell  dimension,  as  in  a rarefied  gas,  the  numerical  integration 
of  the  conservation  equations  cannot  be  accomplished  by  the  method 
discussed  in  this  report. 

Species  Composition:* 

Only  one  species  was  assumed  for  calculations  performed  in  this 
study  and  thus  only  one  equation  of  state  was  used.  Considering 
numerous  chemical  species  would  require  further  significant  code  develop- 
ment and  added  complexity  in  tracking  each  species. 

High  Reynolds  Number  (Viscous  Flow) : 

The  boundary  layer  thickness  6 is  related  to  the  characteristic 
body  dimension  by  the  Reynolds  number.  For  a flat  plate,  Blasius  com- 
puted 6 to  be  approximately  5x/SQRT(Re  ) where  x is  the  distance  along 

x 

the  plate,  <5/x  is  thus  inversely  proportional  to  the  square  root  of  the 
Reynolds  number.  For  large  Re  (>  104  ) S/x  is  small  and  creates  the 

grid  resolution  problem  of  requiring  5/SQRT(Re  ) axial  cells  for  every 

X 

radial  cell  (if  square  cells  are  employed) . If  a grid  having  cells  of 

^Species  in  this  case  means  one  material  and  not  one  chemical  element 
or  molecule. 
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large  aspect  ratio  is  used,  numerical  distortion  may  be  encountered. 

At  critical  Reynolds  numbers,  viscous  instability  occurs  and  a turbulent 
model  must  be  used. 


6.2  Summary  and  Conclusions 

A numerical  finite  difference  technique  was  developed  to  treat  a 
wide  variety  of  problems  encompassing  the  disciplines  of  aerodynamics, 
gas  dynamics,  heat  transfer,  energy  conversion  and  magnetohydrodynamics. 
Results  of  the  numerous  problems  attempted  and  presented  in  Sections  (3) 
and  (5)  reveal  that  this  method  has  proven  to  be  stable  and  accurate  for 
a number  of  interesting  applications.  Major  difficulties  were  encount- 
ered when  problems  such  as  the  re-entry  vehicle  or  MHD  generator 
required  more  than  10,000  cells  in  order  to  preserve  numerical  accuracy. 
Computer  time  became  significant  in  these  cases  and  made  numerical 
experimentation  difficult,  if  not  impossible.  Boundary  layers  always 
presented  a severe  test  to  limiting  the  grid  to  less  than  10,000  cells 
because  the  viscous  region  was  usually  at  least  an  order  of  magnitude 
less  than  the  inviscid  region  and  the  approach  of  varying  the  cell  size 
through  both  regions  created  a significant  risk  of  numerical  distortion. 
Consideration  was  given  to  redefining  the  grid  system  based  on  dimen- 
sionless geometric,  viscous  and  gas  dynamic  parameters,  such  as  done  by 
Spalding  and  Patankar  (Ref.  14),  but  this  approach  was  considered 
beyond  the  scope  of  this  effort . 

The  versatility  of  this  program  was  demonstrated  by  treating  all 
Mach  regimes:  transient  and  steady  state;  viscous  or  inviscid; 
electromagnetic  effects  with  or  without  Hall  current  and  nonlinear 
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material  property  values.  The  computation  did  not  decide,  a priori,  the 
particular  regime  or  region  in  which  it  was  calculating,  but  rather  the 
phenomena  were  computed  as  they  naturally  developed  as  governed  by 
physical  laws  which  dictated  their  behavior. 
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The  predecessor  to  the  hydrocode  developed  in  this  dissertation 
was  the  HULL  hydrodynamics  computer  code.  The  objectives  and  chrono- 
logical history  of  HULL  as  reported  in  Reference  13  will  be  briefly 
outlined  below. 

The  HULL  code  is  a development  of  the  Air  Force  Weapons  Laboratory 
(AFWL) , Kirtland  AFB,  New  Mexico  for  the  theoretical  investigation  of 
hydrodynamic  phenomena  of  interest  to  the  USAF.  The  principal  architect 
of  the  sophisticated  computer  logic  was  Richard  E.  Durrett . The 
calculations  represent  numerical  solutions  to  the  inviscid,  non-conduct- 
ing equations  of  mass,  momentum  and  energy  conservation  and  are 
performed  in  an  explicit  time  scheme  in  an  Euler ian  reference  coordinate 
system.  In  order  to  maintain  numerical  stability,  especially  in  regions 
of  severe  velocity  gradients,  calculations  were  performed  in  two  phases, 
the  first,  computing  a second  order  accurate  Lagrangian  integration  and 
the  second,  fluxing  mass,  momentum  and  energy  in  order  to  retain  the 
initial  grid  position;  this  fluxing  procedure  is  tantamount  to  re- zoning. 

Although  the  latest  version  of  HULL  is  vastly  superior  to  the 
abridged  version  developed  for  this  research,  only  the  2-D  numerical 
technique  for  a single  material  perfect  gas  was  used.  The  complex  HULL 
architecture  and  sophisticated  operating  philosophy  was  not  employed. 

HULL  is  written  in  higher- level  language  and  generates  Control  Data 
Corporation  extended  Fortran  and  assembly  language  routines.  The  HULL 
code  in  its  97th  version  treats  multi-materials,  three  equations  of 
state,  equilibrium  radiation  diffusion  and  strength. 
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The  evolution  of  HULL  began  in  1955  with  the  development  of  PIC 
(Particle  In  Cell)  by  Harlow.  In  the  1960's,  W.  E.  Johnson  authored 
an  Eulerian  version  of  SHELL  which  employed  the  two  phase  scheme  of 
PIC.  However,  Phase  I was  numerically  unstable  until  Matuska,  in  1970, 
time  and  space  centered  calculations  and  thus  evolved  the  HULL 
technique. 

The  conservation  of  mass,  momentum  and  energy  (Equations  (A.l) 
through  (A. 4)  supplemented  with  an  equation  of  state  are  solved  by  a 

fully  first-order  accurate  method  developed  by  Matuska: 

(5  , y 

■jjr(p)+V'(pv)  = 0 (A.l) 

d -> 

PjjrO)  = -Vp+pg  (A.  2) 

Pj^O)  = -V* (pv)+pv-g  (A. 3) 

i = (p,p)  (A-4) 

Equations  (A. 2)  and  (A. 3)  are  solved  in  phase  I for  v and  e (y  = 

constant) . The  integration  is  time  and  space  centered  which  is  vital  to 
the  stability  of  this  computation.  If  the  cell  size  is  square  and  con- 
stant throughout  the  mesh,  the  solution  of  these  equations  will  complete 
a first-order  accurate  Lagrangian  calculation.  Equation  (A.l)  is 
solved  in  phase  II  based  on  the  updated  values  of  e and  v in  phase  I. 

The  original  coordinates  are  displaced  by  an  amount  equal  to  the 
velocity  x time  step.  Next,  by  computing  an  appropriate  amount  of  mass 
that  is  to  be  transported  from  cell  to  cell,  the  displaced  coordinates 
are  returned  to  their  original  positions.  In  addition  to  the  mass 
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transported,  an  amount  of  momentum  and  energy  is  carried  along  analogous 
to  the  convection  processes  of  mass,  momentum  and  energy  (see  Figure 
(7)).  This  is  the  classical  donor  cell  differencing  technique. 
Redefining  the  coordinates  to  their  original  values,  a somewhat  less 
than  rigid  interpretation  of  the  difference  in  Lagrangian  and  Eulerian 
derivatives  would  relate  the  convective  terms  in  the  Eulerian  deriva- 
tives to  the  amount  of  fluxing.  For  example  if  the  new  coordinate 
points  were  not  arbitrarily  restored  to  their  original  values,  then 
the  amount  of  fluxing  would  differ  from  the  convective  terms  appearing 
in  Equation  (A.l)  through  (A. 3)  Lindemuth  (95)  discussed  the  problems 
of  a fixed  or  Eulerian  space  mesh  where  the  convective  terms  are 
difficult  to  center  in  space  and  time  in  the  explicit  calculation  and 
lead  to  instabilities  or  fictitious  second  order  diffusion  terms 
also  pointed  out  by  Richtmyer  (3) . The  fluxing  procedure  described 
above  avoids  these  two  major  shortcomings  which  are  inherent  in  other 
Eulerian  codes.  Lindemuth  further  states  the  alternative  of  using 
a Lagrangian  mesh  but  points  out  the  awkwardness  (instability)  of 
the  calculation  as  the  mesh  becomes  greatly  distorted.  By  proper 
rezoning  of  this  mesh  and  conserving  mass,  momentum  and  energy, 
the  calculation  may  remain  stable.  There  are  methods  which  retain 
their  distinctive  Lagrangian  nature  by  not  necessarily  rezoning 
back  to  the  original  Eulerian  coordinate  system;  they,  however, 
may  suffer  either  from  non-conservation  of  mass,  momentum  and 
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energy  or  generation  of  significant  non-physical  internal  energy  (and 
subsequent  diminishing  kinetic  energy)  destroying  the  true  physical 
conditions  of  the  problem. 

In  performing  the  fluxing  across  cell  boundaries,  mass  momentum 
and  total  energy  are  conserved.  By  examination  of  Equations  (A.l)  to 
(A. 3),  it  is  impossible  to  conserve  the  quantities  of  mass,  momentum 
total  energy  and  kinetic  energy  simultaneously.  Kinetic  energy  is 
artificially  dissipated  representing  a source  of  entropy  production, 
especially  in  regions  of  large  velocity  gradients  such  as  near  shocks. 
This  implicit  viscous  dissipation  is  inherent  in  all  numerical  schemes 
although  other  programs  contain  it  in  the  form  of  an  explicit  artifi- 
cial viscosity  second  order  derivative. 

As  outlined  in  Section  (1),  the  integration  of  time  derivatives 
of  the  fluid  properties  density,  velocity  and  energy,  is  performed  in 
two  phases.  The  Lagrangian  derivative  "d/dT”  is  computed  in  phase  I; 
the  convective  or  advective  terms  are  computed  in  phase  II;  and  the 
combination  of  both  phases  results  in  a first  order  accurate  Eulerian 
integration.  Space  and  time  derivatives  employ  central  differencing, 
whereas  with  time  marching  in  the  forward  direction.* 

Consider  the  fluid  properties  known  at  cycle  (n) , the  method  for 
updating  these  fluid  property  values  at  cycle  (n+1)  is  summarized  as 
follows:  At  some  time  t(n)  and  at  cell  (i,j),  density,  radial  and 
axial  velocity  and  energy  are  known  throughout  the  entire  grid.  At  a 

*Time  variation  of  the  electric  and  magnetic  fields  as  well  as  thermal 
diffusion  (all  not  included  in  HULL)  is  computed  between  phase  I and 
II  and  employs  the  updated  velocities  and  energy  computed  in  the 
first  phase. 
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later  time  t(n+l),  where  t(n+l)  = t(n)  + At  (see  Section  (1.3)),  the  new 
values  of  the  fluid  properties  are  to  be  computed. 

In  order  to  time  and  space  center  calculations,  values  at  the  cell 
interfaces,  such  as  pressure,  density  and  velocity,  are  computed  at 
t+At/2  (t(n+l/2))  and  used  in  the  Lagrangian  integration.  Employing 
i'  and  j*  indices  to  indicate  new  coordinate  positions  resulting  from 
the  Lagrangian  integration,  the  axial  and  radial  velocity  and  the 
internal  energy  are  computed  at  (n+l)based  on  values  of  p, p,u, v, ( j , B) 
and  e predicted  at  cell  interfaces. 

The  next  step  in  the  Lagrangian  scheme  would  normally  be  that  of 
transporting  mesh  vertices.  However,  to  maintain  an  Eulerian  integra- 
tion and  thus  retain  the  original  mesh  configuration,  the  fluxing  of 
hydrodynamic  quantities  is  performed.  This  fluxing  is  tantamount  to 
"rezoning"  the  displaced  coordinates  back  to  their  original  positions. 
After  fluxing  is  performed  and  mass,  momentum  and  energy  (and  magnetic 
induction)  is  convected,  the  displaced  coordinates  i’,  j'  are  returned 
to  their  original  positions  i,j.  The  amount  of  fluxing  is  determined 
by  the  velocities  of  the  donor  cells  and  the  time  interval  over  which 
the  fluxing  procedure  occurs. 

In  conclusion,  the  HULL  code  was  developed  to  treat  high  explosive 
detonation  and  nuclear  blast  phenomena.  The  equations  and  numerical 
formulation  could  have  then  just  as  easily  been  applied  to  the  numerous 
aerodynamic  and  fluid  mechanic  problems  confronting  the  aerospace 
engineer.  Since  1965,  however,  other  individuals  have  performed 
Eulerian  and  Lagrangian  calculations  in  this  field  with  varying  degrees 
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of  success,  depending  on  the  stability  and  convergence  of  the  method 
used.  It  is  precisely  the  unique  nature  of  HULL  (two  phases: 

Lagrant ian/rezone)  which  enables  this  method  to  treat  the  most  severe 
flow  fields  in  a stable  and  accurate  manner.  Finally  the  dozen  or  so 
individuals  who  spent  many  years  and  tens  of  thousands  of  CDC  6600  CPU 
hours  developing  the  HULL  hydrocode  bears  witness  to  the  fact  that 
development  of  a procedure  for  solving  the  conservation  equations  is, 
at  best,  an  evolutionary  process  encompassing  the  efforts  of  many. 
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APPENDIX  B 

MATHEMATICAL  DERIVATIONS 
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B.l  Time  Rate  of  Change  of  Pressure 
Employing  a perfect  gas  equation  of  state,  the  internal  energy, 
conservation  of  mass  and  rate  of  change  of  internal  energy  become: 

(B.l) 


i = J-.P 

Y-l  p 


(5 

Stcp)  = ‘pv^ 


pi^(i)  = -p(V*v)  + -(t:Vv)-(V-q) 


(B.2) 
(B . 3) 


Differenting  Equation  (B.l) 


(B.4) 


Substituting  Equation  (B.4)  and  (B.2)  into  (B.3)  and  collecting  terms 

+ -?■ 

-rK  “n  n 

a v " ' ■'  v J (B  .5) 


xr(p)  = -YpV'v+Cy-l) [-TJ-  -(T:Vv)-Oq)] 


■ <St 

which  represents  the  change  in  pressure  as  a function  of  time. 
B.2  Electrical  Boundary  Conditions 
The  relationships  between  current  and  electric  fields: 

a 
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Jr  = 


1+6 
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7<VeV 


l+s 


T(E  +6EJ 


E = 
z 


j +6j 

Jz  Jr 


(B.6) 
(B . 7) 

(B.8) 


P 

Er  — 


(B.9) 


is  derived  by  expanding 


1 = a(E+vxB)  -|(jxB) 


(B.101 
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The  electrical  field  components  are  measured  in  a coordinate  system 
moving  with  a velocity  v. 

Boundary  conditions  for  a multi-electrode  system  in  terms  of  either 
(ji  or  i \>  follows  (Fig.  66).  Ideal  electrodes  (E=0)  and  insulators  (j=0) 
are  assumed. 

Stream  Current  Function  Boundary  Conditions 
For  a stream  function  ijj 


j 


z 


(B . 11) 


(A)  conductors:  Ez=0 


\ + = 0 

(B  .12) 

few  - 

(B.13) 

(B)  insulators:  j 

= 0 

few  - 0 

(B.14) 

or  ip  = constant. 

Referring  to  Figure 

(66) 

T 

= ¥ 

2 Y1 

+ few^z  = VjrAz  = VXr 

(B.15) 

where  i is  the  net 
Jr 

current  in  the  radial  direction  flowing  in 

the 

electrode-insulator 

pair . 

Similarly, 

T = V +1 

4 3 r 

(B.16) 

K5 

II 

T.+  |-(T)Ar  = ¥ +v 

1 or  1 z 

(B .17) 

-l> 

II 

: T +1  = T +1  +1 

2 z 1 r z 

(B.18) 
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Electric  Potential  Boundary  Conditions 


Ez  = -?rc+)  Er  = -I^c+d 


(A)  conductors:  Ez  = 0 or  <(>  = constant 


(B.19) 


<t>2  " V 5^rC<(>)  At-  = 4>1  -E^Ar  = 4>n  +A<f> 


1 r 


(B . 20) 


<(>3  = h+  3lWAz  = <f>1+A<l)z  = 4>1+vz 


(B . 21) 


(B)  insulators:  Jr  = 0 


few  = -efew 


(B. 22) 


Thus,  for  a Faraday  generator 

T = o-T  = T • T = T • T -T  = T -T 
z > 3 V *4  V T4  3 2 Y1 

equals  the  net  current  through  the  adjacent  electrode. 

For  a Hall  generator 


(B .231 


Vh  = Vh  = V Vh  = ‘*3  = Av 

where  AV  equals  the  voltage  drop  between  the  anode  and  cathode. 


(B.24) 
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APPENDIX  C 
USER'S  MANUAL 
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APPENDIX  C 


This  appendix  discusses  the  FORTRAN- IV  computer  program  which  gen- 
erated the  calculations  presented  in  this  report.  Included  are: 

C.l  Program  Flow  Chart 

C.2  Description  of  Program  Routines 

C.3  Description  of  FORTRAN  Symbols 

C.4  Discussion  of  Input,  Output  and  Graphics 

C.5  Test  Cases 

C.6  Program  Suggestions  and  Diagnostics 

C.7  Hull  Difference  Method  Minority  Report 

C. 8 FORTRAN  IV  Listing 

Figure  C.l  contains  a flow  chart  of  the  program.  Two  overlays  are 
employed,  the  first  containing  the  numerics  and  the  second,  the  plotting. 

The  core  requirements  are  dictated  by  the  size  of  arrays  used  in 
the  labeled  common  block  "CARRAY."  For  a 50  x 150  grid,  the  IBM-370 
central  memory  requirement  is  512K  and  the  CDC  6600  is  260K.  Reducing 
the  grid  to  30  x 75  reduces  the  core  requirements  to  approximately  300K 
and  120K,  respectively. 

Each  overlay  is  composed  of  approximately  3000  FORTRAN  statements 
or  a total  of  3 boxes  of  cards  for  the  complete  source  program. 


TAPE  AND  DISK  UNITS 
UNIT 

5 Card  input 

6 Print  output 

14  Plot  data  written  by  subroutine  GRAPH  and  read  by  subroutine 

♦ GRID 

15  Restart  tape  for  dumping  variables  at  cycle  n (Subroutine 
OUTPUT)  and  reading  in  later  (Subroutine  INPUT)  to  restart 
at  cycle  n+1. 

C.2  DESCRIPTION  OF  PROGRAM  ROUTINES 

This  section  discusses  the  routines  contained  in  the  computer  code. 
The  program  consists  of  the  following  subroutine  and  functions: 

MAIN  - calls  either  hydro  or  plot  routines 

DRIVER  - hydro  exec  routine 
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BETA 


SIG 


RGAS 


CV 


CP 


GAMM 


COND 


VIS 


EDDY 


OVERLAY  1 (COMPUTATION) 


Figure  C.l  Flow  Chart 
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INPUT 

GEOM 

MATER 

HULLP1 

HULLP2 

TMESTP 

BOUND 

SPEC 

OBLQUE 

EFIELD 

BNDPOT 

PLATE 

CURRNT 

CUR 

DFSN 

TEMDIF 

KSWEEP 

JSWEEP 

TRID 

VIS 

EDDY 

GAMM 

SIG 

BETA 

CV 

CP 

RGAS 

COND 

OUTPUT 

GRAPH 

DIGPLT 

PRTPLT 


- reads  hydro  input 

- sets  up  grid 

- defines  material  properties  (presently  a dummy  routine) 

- performs  hydro  phase  I 

- performs  hydro  phase  II 

- computes  time  step 

- sets  up  boundary  conditions 

- assigns  special  values  to  variables  and  arrays 

- determines  oblique  boundary  conditions 

- performs  SOR  integration 

- defines  electrical  boundary  conditions 

- defines  electrode  and  insulator  cells 

- computes  currents  and  electric  fields 

- computes  radial  current  entering  or  leaving  each  electrode 

- explicit  solution  of  magnetic  induction  equation 

- defines  linear  matrix  for  thermal  diffusion 

- implicit  K sweep  solution 

- implicit  J sweep  solution 

- sets-up  tri-diagonal  matrix  for  SOR  or  ADI 

- laminar  viscosity  function 

- turbulent  eddy  viscosity  function 

- specific  heat  ratio  function 

- electrical  conductivity  function 

- Hall  parameter 

- specific  heat  at  constant  volume  function 

- specific  heat  at  constant  pressure  function 

- gas  constant  function 

- thermal  conductivity  function 

- writes  output 

- stores  plot  data 

- prints  digital  plot 

- generates  digital  plot 
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WITH  AUXILLARY  PLOT  ROUTINES: 

PLOTTE  - plot  exec  routine 

RDPLT  - reads  plot  input 

SETGRD  - sets  up  grid  axis  and  labels 

LABPLT  - generates  time  history  or  spatial  distributions 

GRIDS  - plots  grids 

TRUN  - truncates  axis  coordinate  values 

SHADE  - shades  grids 

NXVOSB  - scales  plot  array 

PARTCL  - depicts  tracer  particles 

CELL  - locates  cell  (I,J)  corresponding  to  a set  of  coordinates 

ARROW 

LEVEL 
POINT 
DRAW 

THREED 
PLOT 3D 
FRAMER 


See 

"SIMULATORS" 
Page  361 


PLOT  AND  AUXILIARY  ROUTINES 

Stromberg-Carlson  4020 

FRAMEV  - advances  frame 

LINEV  - draws  line 

PLOTV  - plots  symbol 

PRINTV  - plots  letter 

RITSTV  - controls  letter  spacing 

CHSIZV  - controls  character  size 

DXDYV  - scale  routine 

CALCOMP 

CALCMP  - executes  numerous  plot  commands 
PLOT  - moves  pen  (in  up  or  down  position) 

LINE  - connects  an  array  of  points 

SYMBOL  - plots  a string  of  symbols 


- draws  arrows 

j>  - contour  plot  package 

- three  dimensional  plot  package 


203 


AEDC-TR-77-105 

NUMBER 

plots 

GSIZE 

calls 

SECOND 
(CDC  6600) 

gives 

TIMER 
(IBM  370) 

gives 

1st  OVERLAY 

a number 

for  specific  pen  and  paper 
cp  time  in  seconds 

cp  time  in  seconds 


Referring  to  Figure  C.l,  main  calls  DRIVER  which  serves  as  the 
executive  routine.  Initially  INPUT,  GEOM,  and  BOUND  are  called  to  set 
up  initial  and  boundary  conditions  and  grid  network.  DRIVER  then  calls 
the  hydrodynamic  subroutines:  HULLPI  (phase  I),  HULLP2  (phase  II), 
electromagnetic  routines,  EFIELD,  thermal  and  magnetic  diffusion  routines: 
TEMDIF  and  DFSN,  time-step  calculation,  TMESTP  and  the  output  routines: 
OUTPUT,  DIGPLT,  PRTPLT,  and  GRAPH  (plot  data). 


Boundary  conditions  (BOUND)  are  defined  as  fixed,  reflective  or 
transmissive  for  each  of  the  four  boundaries.  OBLQUE  treats  the  curvature 
of  oblique  boundaries  intersecting  cells.  Subroutine  SPEC  assigns 
special  values  to  hydrodynamic  or  electromagnetic  every  cycle  and  BNDPOT 
assigns  the  electric  potential  or  current  stream  function  to  electrodes 
and  insulators.  PLATE  identifies  the  anode-cathode  pairs. 


Subroutine  HULLPI  integrates  the  equations  of  motion  in  a Lagrangian 
reference  frame.  Subroutine  HULLP2  transports  mass  employing  the  "donor- 
receivor"  technique.  The  electromagnetic  calculation  is  performed  by 
EFIELD  which  solves  the  elliptic  partial  differential  equation  for  the 
electric  potential  or  current  stream  function.  The  method  of  Successive- 
Over-Relaxation  was  employed.  If  the  time-dependent  magnetic  induction 
equation  is  solved,  DFSN  is  called.  Viscous  effects  are  computed  in 
HULLPI  employing  the  functions  VIS  or  EDDY  describing  viscosity.  Sub- 
routine TEMDIF  solves  implicitly,  the  time-dependent  heat  conduction  term 
(energy  equation)  by  alternating  directions  in  sweeping  the  grid:  KSWEEP 
and  JSWEEP.  Subroutine  TRID  solves  the  tri-diagonal  matrix  formed. 


Functions  VIS,  EDDY,  GAMM,  SIG,  BETA,  CV,  CP,  RGAS  and  COND  compute 
properties  at  cell  i,j  based  on  the  temperature,  pressure,  etc.,  at  that 
cell. 


2nd  OVERLAY 


Subroutine  PLOTTE  calls  RDPLT  for  data  input,  sets  up  appropriate 
arrays  for  plotting  time  histories  or  spatial  distributions  or  call  GRIDS 
for  contour,  shading  or  3-D  plots.  Subroutine  SETGRD  sets  up  the  labeled 
axis.  LABPLT  draws  the  curves  representing  time  history  or  spatial  dis- 
tributions of  certain  variables.  GRIDS  draws  lines  connecting  nodal  points 
and  sets  up  data  for  vector,  contour  shade,  3-D  and  particle  (tracer)  plots. 
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NXVOSB  is  a scale  routine  which  determines  the  location  of  points  to  be 
plotted.  TRUN  truncates  a number  to  be  used  in  labelling  an  axis. 

ARROW  draws  the  head  of  vectors.  PARTCL  generates  tracer  particle  and 
stores  the  particle  trajectory  data  whereas  CELL  identifies  the  location 
of  the  tracer  particle.  Subroutines  LEVEL,  POINT  and  DRAW  draw  contour 
maps  whereas  subroutines  THREED,  PL0T3D  and  FRAMER  construct  3-D  plots. 
PLTMTX  and  PLT3D1  represent  an  alternate  3-D  plot  package.  The  contour 
plot  package  was  developed  by  ARO,  Inc.,  Arnold  AFS,  TN,  whereas  the  3-D 
plot  packages  were  developed  by  the  University  of  Texas  and  AEDC,  Eglin 
AFB,  FL. 


C . 3 DESCRIPTION  OF  FORTRAN  SYMBOLS 

This  section  contains  a list  of  major  FORTRAN  symbols  other  than 
those  to  be  discussed  in  the  input  section  (C.4), 


BO 

- 

theta  magnetic  induction 

BPRES 

- 

magnetic  pressure 

BR 

- 

radial  magnetic  induction 

BZ 

- 

axial  magnetic  induction 

CMACH 

- 

Mach  number 

CMPR 

- 

cell  compressive  energy 

COND 

- 

thermal  conductivity 

CV 

- 

specific  heat  at  constant  volume 

DANGLE 

- 

angle  of  oblique  boundary 

DELTA 

- 

angle  of  oblique  boundary 

DR 

- 

radial  dimension  of  cell 

DEVU 

- 

axial  velocity  change  due  to  deviatoric  stress 

DEW 

- 

radial  velocity  change  due  to  deviatoric  stress 

DT 

- 

time  step 

DZ 

- 

axial  dimension  of  cell 

E 

- 

energy/unit  mass 

ER 

- 

radial  electric  field 

EZ 

- 

axial  electric  field 

GR 

- 

radial  gravitation  (set  = 0) 

GZ 

- 

axial  gravitation  (set  = 0) 

INT 

- 

oblique  boundary  indicator 

I0BK 

- 

oblique  boundary  indicator 
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JR 

- 

radial  current 

JZ 

- 

axial  current 

NCONV 

- 

convection  time  counter 

NMAGN 

- 

magnetic  time  counter 

NTHRM 

- 

heat  conduction  time  counter 

NVISC 

- 

viscous  time  counter 

M 

- 

mass  (new) 

MIJ 

- 

mass  (old) 

P 

- 

pressure 

PERM 

- 

permeability 

PHI 

- 

electric  potential 

R 

- 

radial  position  of  cell 

RIMH 

radial  position  at  I - 1/2 

RIPH 

- 

radial  position  at  I + 1/2 

RIP3H 

- 

radial  position  at  I + 3/2 

RDIST 

- 

radial  position  of  oblique  boundary 

RGAS 

- 

gas  constant 

RHO 

- 

density 

SIG 

- 

electrical  conductivity 

SPHU 

- 

axial  velocity  change  due  to  pressure 

SPHV 

- 

radial  velocity  change  due  to  pressure 

T 

- 

time 

TEMP 

- 

temperature 

THETA 

- 

angle  of  velocity  vector 

TOO 

- 

azimuthal  stress 

TRR 

- 

radial  stress 

TRZ 

- 

shear 

TZZ 

- 

axial  stress 

U 

- 

axial  velocity 

V 

- 

radial  velocity 

vise 

- 

viscosity 

z 

- 

axial  position  of  cell 
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C . 4 DISCUSSION  OF  INPUT,  OUTPUT,  AND  GRAPHICS 

Card  input  with  FORTRAN  symbols  and  format  is  defined  below.  Ex- 
amples follow  later  in  this  report. 

INPUT  (HYDRO) 

UNITS  G(GM),  C ( CM)  , S(SEC),  E(ERG)  , GA(GAUSS) , P(POISE),  O(OHM)  , 

M(METER) , K(DEG  K)  , A (ATM) , D (DYNES) , V (VOLTS ) , AC (AB COULOMB) 


CARD  ONE 

(15A4) 

TITLE 

1-60 

TITLE  IDENTIFICATION 

- 

CARD  TWO 

(1615) 

KMAX 

1-  5 

number  of  cells  in  radial  direction 

- 

JMAX 

6-10 

number  of  cells  in  axial  direction 

- 

IAXI 

11-15 

(0)  cartesian,  (1)  cylindrical  coordinates 

- 

IPTSF 

16-20 

(1)  current  stream  function,  (2)  electric 
potential 

- 

ISYM(l) 

21-25 

boundary  conditions  (0)  fixed 

3 

— 

ISYM(2) 

26-30 

(1)  transmissive,  (-1)  reflective  2 j 

4 

- 

ISYM(3) 

31-35 

for  bottom,  left,  top,  right  boundaries 

1 

- 

ISYM(4) 

36-40 

- 

NVECT 

41-45 

(0)  no  oblique  boundary,  (1)  top  oblique, 

(2)  top  and  bottom  oblique 

- 

NPDIM 

46-50 

(0)  no  plot  tape,  (1)  plot  tape 

- 

MCALC* 

51-55 

type  calculation:  (viscous,  EMF) 

- 

IRST** 

56-60 

(-1)  write  restart  tape,  (+1)  read  restart  tape 

- 

IOBQ 

61-65 

(0)  no  obliq  bdry,  (+1)  oblq  bdry,  (-1) 

no  slip 

- 

IPOT 

66-70 

(0)  no  emf,  (N)  every  Nth  cycle,  the  potential 
or  stream  function  is  solved  for. 

*The  program  was  designed  to  eliminate  the  viscous  or  electromagnetic 
logic  by  selecting  MCALC  accordingly: 

0 INVISCID  ] 

1 LAMINAR  > 

2 TURBULENT  ) 


3 INVISCID 

4 LAMINAR 

5 TURBULENT 


MAGNETIC 

INDUCTION 
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6 INVISCID  ) ELECTRIC  POTENTIAL 

7 LAMINAR  > OR 

8 TURBULENT  ) CURRENT  STREAM  FUNCTION 

A viscous  or  magneto-stress  calculation  takes  roughly  twice  as  much  CP 
time  per  cycle  as  a simple  inviscid  problem.  Solving  the  electric  poten- 
tial or  stream  current  function  may  take  even  considerably  more  time. 

The  "restart"  capability  is  a means  in  which  long  executing  jobs 
may  be  run  in  segments.  As  an  example,  given  a 4-hour  job  which  is  to  be 
run  in  8-1/2  hour  segments.  Initially,  IRST  is  set  = "-1"  and  the  program 
is  run  NMAX  cycles.  At  the  end  of  the  run  (NPRN  <_  NMAX)  a tape  on  unit 
15  writes  all  appropriate  information  in  order  that  the  calculations  may 
continue  later.  In  the  next  segment,  IRST  is  set  = "1"  and  the  same  card 
input  along  with  the  restart  tape  (unit  15)  initiates  the  next  sequence 
of  calculations.  After  this  calculation  is  completed,  a new  "dump"  on 
tape  15  is  performed  and  further  calculations  proceed  in  the  same  manner. 
No  changes  are  required  to  the  deck  after  IRST  is  set  = 1 and  the  deck 
can  be  read  in  repeatedly  in  1/2  hr,  1 hr,  etc.,  segments. 

IF  IOBQ  / 0 READ  CARD  THREE  A: 

CARD  THREE  A 


RD 

1-10 

r coordinate  of  oblique  boundary* 

C 

XD 

11-20 

z coordinate  of  oblique  boundary 

C 

IF  IPOT  ± 

0 READ 

CARD  THREE  B: 

SPACE 

1-10 

number  of  cells  per  electrode 

- 

SPINSL 

11-20 

number  of  cells  per  insulator 

- 

BASEP 

21-30 

number  of  EMF  integrations  on  the  first  cycle 

- 

DPOT 

31-40 

number  of  EMF  integrations  on  the  ensuing  cycles 

_ 

DVOLT 

41-50 

dummy 

- 

JPLMIN 

51-55 

initial  conductor  (or  insulator)  cell 

- 

JPLMAX 

56-60 

final  conductor  (or  insulator)  cell 

- 

CARD  FOUR 

(815) 

NPRN 

1-  5 

print  interval  in  cycles 

- 

KPDEL 

6-10 

print  for  every  kth  cell 

- 

JPDEL 

11-15 

print  for  every  jth  cell 

- 

NPLOT 

16-20 

plot  tape  interval  in  cycles 

- 

NDIGPL 

21-25 

(0)  no  digital  plot,  (1)  digital  plot 

- 

NMAX 

26-30 

terminal  cycle 

- 

NCYCLE 

31-35 

initial  cycle 

- 

*If  electrodes  are  employed  (IPOT^O) , at  least  two  boundary  cells  must  be 
defined....  see  Fig.  C.9,  page  227. 
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CARD  FIVE 

(8E10.4) 

DZ0 

1-10 

cell  spacing  in  axial  direction 

C 

DR0 

11-20 

cell  spacing  in  radial  direction 

C 

ZMIN 

21-30 

minimum  axial  location 

C 

RMIN 

31-40 

minimum  radial  location 

C 

MINDT 

41-50 

minimum  time  step 

S 

MAXDT 

51-60 

maximum  time  step 

S 

STAB 

61-70 

stability  factor 

- 

TZERO 

71-80 

initial  time 

S 

CARD  SIX 

(8E10.4) 

RHO0 

1-10 

density 

G/C3 

VZ 

11-20 

axial  velocity 

C/S 

VR 

21-30 

radial  velocity 

C/S 

E0 

31-40 

energy/mass 

E/G 

B0 

41-50 

magnetic  induction  - theta 

G 

BR0 

51-60 

magnetic  induction  - R 

G 

BZ0 

61-70 

magnetic  induction  - Z 

G 

CARD  SEVEN  (4E10.4) 

VISC0 

1-10 

viscosity 

P 

PERM0 

11-20 

permeability 

- 

MW 

21-30 

molecular  weight 

- 

ARFV 

31-40 

artificial  viscosity  (0)  off,  (1)  on 

- 

CARD  EIGHT  TO  TEN  (415 , / , 7E1Q . 4, / , 5E10 . 4) 


K1 

1-  5 

special  assignment  of  cell  variable  values 

- 

J1 

6-10 

from  K1  to  K2  in  radial  direction  and  J1 

- 

K2 

11-15 

to  J2  in  axial  direction 

— 
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J2 

16-20 

- 

BRHO0 

1-10 

same  variables  as  defined  before,  e.g.  BE0  and 

G/C3 

BVZ 

11-20 

E0 

G/C 

BVR 

21-30 

G/C 

BEQf 

31-40 

E/G 

BB0 

41-50 

G 

BBR0 

51-60 

G 

BBZ0 

61-70 

G 

BVISC0 

1-10 

P 

BPERM0 

11-20 

- 

REPEAT  CARDS  8-10  WITH  LAST  SET  BLANK 
INPUT  (PLOT) 

UNITS  G(GM),  C ( CM) , S(SEC),  E(ERG) , GA(GAUSS) , P(POISE),  O(OHM), 

M(METER) , K(DEGK),  A (ATM) , D (DYNES ) , V(VOLTS),  AC  (ABCOULOMB) 


CARD  ONE 

(915. 5X, 

E10.4) 

MOVIE 

1-  5 

(0)  no  movie,  (1)  16  or  35  mm  movie 
(3)  contour  plot 

IHIST 

6-10 

number  of  time  history  plots 

ISPAT 

11-15 

number  spatial  distribution  plots 

IPARAM 

16-20 

number  of  parameter  plots 

ILINE 

21-25 

number  of  line  elimination  cards 

ISC 

26-30 

(0)  no  shading,  (-1)  shading  and/or  contour 
mapping 

IDET 

31-35 

(0)  labels,  (1)  no  labels,  (3)  punched  cards 
of  shade  intensity,  (5)  3-D  plots 

ISYM 

36-40 

(0)  no  symmetry,  (1)  mirror  image  about  r-axis, 
(2)  mirror  image  about  z-axis 

IVEL 

41-45 

(0)  no  vectors,  (1)  vectors 

RPV 

51-60 

vectors  plotted  at  inches/plot  variable 
value 
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CARD  TWO 

(1015) 

ILOW 

1-  5 

minimum  radial 

index  to  be  plotted 

- 

JHIGH 

6-10 

maximum  radial 

index  to  be  plotted 

- 

JLOW 

11-15 

minimum  axial 

index  to  be  plotted 

- 

JHIGH 

16-20 

maximum  axial 

index  to  be  plotted 

- 

LI 

21-25 

if  IL0W.NE.1, 

JL0W.NE.1,  IHIGH.NE.KP2 

- 

L2 

26-30 

JHIGH. NE.JP2 

- 

L3 

31-35 

Ll  = 1,  L2  = KP2,  L3  = 1,  U = JP2 

- 

L4 

36-40 

otherwise  Ll  = 

L2  = L3  = L4  = 0 

- 

JPDEL 

41-45 

plot  interval 

in  axial  direction 

- 

KPDEL 

46-50 

plot  interval 

in  radial  direction 

- 

CARD  THREE  (4F10, 

■A1 

ZLOW 

1-10 

minimum  axial 

coordinate 

C 

ZHIGH 

11-20 

maximum  axial 

coordinate 

C 

XLOW 

21-30 

minimum  radial 

coordinate 

c 

XHIGH 

31-40 

maximum  radial 

coordinate 

c 

CARD  FOUR  (215) 

IVX  1-  5 

IVZ  6-10 

CARD  FOUR  A (515) 
IF  IPART  + 0 READ; 


IPLOW 

1-  5 

minimum  ith 

particle  cell 

location 

- 

IPHIGH 

6-10 

maximum 

m 

- 

JPLOW 

11-15 

minimum  jth 

it 

- 

JPHIGH 

16-20 

maximum 

ii 

- 

NPTS 

21-25 

number  of  cycles  when  new 

particles  originate 

- 

minimum  row  for  time  history  plots 
maximum  row  for  time  history  plots 


CARD  FIVE  (615) 

IHMIN  1-  5 

IHMAX  6-10 


ordinate  variable  in  vector  plot  (8  for  velocity)  _ 
abscissa  variable  in  vector  plot  (7  for  velocity)  - 
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JHMIN 

11-15 

minimum  column  for  time  history  plots 

- 

JHMAX 

16-20 

maximum  column  for  time  history  plots 

- 

MCODE 

21-25 

variable  plotted  (see  table  C.l) 

- 

MFRAME 

26-30 

number  of  time  history  plots  per  frame 

- 

CARD  SIX 

(615) 

ISMIN 

1-  5 

minimum  row  for  line  elimination 

- 

ISMAX 

6-10 

maximum  row  for  line  elimination 

- 

JSMIN 

11-15 

minimum  column  for  line  elimination 

- 

JSMAX 

16-20 

maximum  column  for  line  elimination 

- 

NCODE 

21-25 

(1)  axial  coordinate  (horizontal) 

(2)  radial  coordinate  (vertical) 

— 

CARD  SEVEN  (615) 

(At  present,  these  values  are  overridden  in  GRIDS) 

IZMIN 

1-  5 

minimum  row  for  spatial  distribution  plots 

- 

IZMAX 

6-10 

maximum  row  for  spatial  distribution  plots 

- 

JZMIN 

11-15 

minimum  column  for  spatial  distribution  plots 

- 

JZMAX 

16-20 

maximum  column  for  spatial  distribution  plots 

- 

MZODE 

21-25 

variable  plotted  (see  table  C.l) 

- 

MFRAME 

26-30 

number  of  spatial  distribution  plots  per  frame 

- 

CARD  EIGHT  (2E10. 

. 4, 3(5X, 15) ) 

Referring  to  Table  C.l.  Each  cell  (identified  by  indices  I,J)  has 
36  variables  stored  on  the  disk  by  Subroutine  GRAPH.  These  values  are 
later  employed  to  generate  plots.  At  cycle  intervals  of  NPLT,  Subroutine 
GRAPH  writes  on  disk  unit  14.  Later,  when  plotting  is  performed.  Sub- 
routines PLOTTE  or  GRIDS  rewinds  disk  unit  14  and  searches  for  specific 
plot  data  at  various  times  and/or  grid  locations. 


El 

1-10 

minimum  value  to  be  shaded 

VAR 

E2 

11-20 

maximum  value  to  be  shaded 

VAR 

LI  1 

26-30 

variable  to  be  shaded  (see  table  C.l) 

- 

LI2 

36-40 

(0)  linear  shade  scale,  (1)  logarithmic  scale 

- 

LI3 

46-50 

(0)  shade  only,  (1)  shade  and  velocity  vectors 

- 
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CARD  NINE 

(515) 

ISHIN 

1-  5 

minimum  row  to  be  shaded 

- 

ISHAX 

6-10 

maximum  row  to  be  shaded 

- 

JSHIN 

11-15 

minimum  column  to  be  shaded 

- 

JSHAX 

16-20 

maximum  column  to  be  shaded 

- 

NSHADE 

21-25 

shade  intensity 

- 

CARD  TEN 

(615) 

IRMIN 

1-  5 

minimum  row  to  be  plotted  on 

parametric  plot 

- 

IRMAX 

6-10 

maximum  row  to  be  plotted  on 

parametric  plot 

- 

JRMIN 

11-15 

minimum  column  to  be  plotted 

on  parametric  plot 

- 

JRMAX 

16-20 

maximum  column  to  be  plotted 

on  parametric  plot 

- 

MPODE 

21-25 

variable  plotted  (see  table  C 

:.D 

- 

CARD  ELEVEN  (4F10.4, 39X,  11) 

TPLTMI 

1-10 

minimum  plot  time 

S 

TPLTMA 

11-20 

maximum  plot  time 

S 

TPLTDL 

21-30 

Time  interval  for  spatial  and 

[ time  history  plots 

s 

TPLTDE 

31-40 

time  interval  for  grid  plots 

s 

INUMM 

80 

(0)  last  plot  set,  otherwise 

(1) 

- 

Table  C.l 

. Variable  Assignments  for  Cell  (I, J)  for  Subroutines  Graph 

and  RDPLT 

1 I 

radial 

index 

- 

2 J 

axial 

index 

- 

3 R 

radial 

coordinate 

c 

4 Z 

axial 

coordinate 

c 

5 DR 

cell  dimension  in  radial  direction 

c 

6 DZ 

cell  dimension  in  axial  direction 

c 

7 U 

axial 

velocity 

c/s 

8 V 

radial 

velocity 

c/s 

9 P 

pressure 

A 

10  E 

total 

energy/unit  mass 

E/G 
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11 

INT 

internal  energy /unit  mass 

E/G 

12 

C 

speed  of  sound 

C/S 

13 

MACH 

Mach  number 

- 

14 

RHO 

density 

G/C3 

15 

M 

mass 

G 

16 

BO 

magnetic  field  - azimuthal  direction 

GA 

17 

TRR 

stress  - radial  direction 

D/C2 

18 

TZZ 

stress  - axial  direction 

D/C2 

19 

TOO 

stress  - azimuthal  direction 

D/C2 

20 

TRZ 

shear 

D/C2 

21 

ER 

electric  field  - radial  direction 

GA-C/S 

22 

EZ 

electric  field  - axial  direction 

GA-C/S 

23 

vise 

laminar  viscosity 

P 

24 

BR 

magnetic  field  - radial  direction 

GA 

25 

BZ 

magnetic  field  - axial  direction 

GA 

26 

JR 

current  - radial  direction 

AC/S-C2 

27 

JZ 

current  - axial  direction 

AC/S-C2 

28 

GAMMA 

specific  heat  ratio 

- 

29 

SIG 

electrical  conductivity 

30 

- 

- 

31 

TEMP 

temperature 

IC 

32 

PHI 

electrical  potential 

- 

33 

PS  I 

stream  current  function 

- 

34 

BETA 

hall  parameter 

- 

35 

COND 

thermal  conductivity 

gc/s3-k 

36 

VORT 

vorticity 

1/s 

As  an  example  of  data  input  Figure  C.2  depicts  the  input  for  a 
simple  MHD  generator.  Output  consists  of  a list  of  hydrodynamic  (Figure 
C.3),  viscous  (Figure  C.4),  or  electromagnetic  (Figure  C.5)  variables 
for  cells  at  intervals  KPDEL  and  JPDEL.  If  NDIGPL  is  GT  0,  then  a digi- 
tal plot  (on-line  printer)  is  produced  (Figure  C.6). 
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MHO  GENERATOR 
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R( 1)  = RMXN  + DRO/2  = -10.5  + 0.5/2  = -10.25 

R(KP2)  = RMAX  = R( 1)  + (KMAX  + 1)  * DRO  = -10 . 25  + (40  + 1)  * 0 . 5 

= +10.25 

In  generator,  RD ' s = 7 < 10.25 

Figure  C.2  Card  Input 
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Figure  C.3  Output  Table,  Hydrodynamic  Variables 
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Figure  C.3  Continued 
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Figure  C.4  Output  Table,  Viscous  Variables 
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Figure  C.4  Continued 
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Figure  C.5  Continued 
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Computer  graphics  for  this  program  consist  of  the  following: 

(1)  Time  Histories 

(2)  Spatial  Distributions 

(3)  Vectors 

(4)  Contour  Mapping 

(5)  Grey-Level  Scaling 

(6)  Trace  Particles 

(7)  Three-Dimensional  Perspectives 

Animation  is  easily  achieved  by  generating  sixteen  or  thirty-five  mm 
motion  pictures  from  a sequence  of  individual  frames  of  the  above  plots. 
Sections  3,  4 and  5 of  this  report  contain  numerous  examples  of  the 
graphics  which  facilitates  the  analysis  of  problems  under  investigation. 

A brief  discussion  of  each  plot  follows: 

(1)  TIME  HISTORIES 

At  a given  cell  or  group  of  cells,  it  may  be  desirable  to  trace  the 
time  history  of  certain  variables  such  as  pressure  (Table  C.l,  Variable  (9)). 
As  an  example,  consider  the  following  input  (Fig.  C.7),  at  cell  I = 11, 

J = 3,  pressure  is  plotted  as  a function  of  time. 

TPLTDL  is  normally  input  as  zero,  but  may  be  assigned  a specified 
time  interval  at  which  time  histories  are  plotted.  In  the  event  TPLTDL 
is  zero,  NPLOT  (hydro  input),  which  specifies  the  cycle  interval  at  which 
data  is  stored  to  be  plotted  later,  controls  the  number  of  time  data  points. 
If  TPLTMA,  TPLTDE  or  TPLTDL  are  greater  than  T (e.g.  1.0),  the  last  hydro 
cycle  time,  then  TPLTMA,  TPLTDE  and  TPLTDL  are  set  equal  to  T. 

(2)  SPATIAL  DISTRIBUTIONS 

The  question  often  arises  as  to  how  certain  variables  vary  in  either 
the  axial  or  radial  direction.  Consider  the  MHD  generator  problem  where 
it  is  desirable  to  find  the  location  of  a discontinuity  along  the  center- 
line  (Fig.  C.8) 


ISMIN 

ISMAX 

JSMIN 

JSMAX 

MCODE 

11 

11 

1 

69 

9 

11 

11 

1 

69 

13 

11 

11 

1 

69 

14 

at  cells  I = 11,  J = 1,  69,  pressure  (9),  Mach  number  (13)  and  tempera- 
ture (31)  are  plotted.  The  axial  distribution  of  pressure,  Mach  number 
and  temperature  reveal  the  location  of  this  discontinuity  at  a specific 
time. 
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Figure  C.7  Time  History 
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Figure  C.8  Spatial  Distributions 


225 


AEDC-TR-77-105 


(3)  VECTORS 

Vector  plots  provide  a useful  tool  in  examining  the  magnitude  and 
direction  of  such  variables  as  the  velocity  and  electric  currents  or 
fields . 

Given  radial  and  axial  vector  components  at  each  cell,  arrows  are 
drawn  with  a direction  = tan~^  (radial  component /axial  component)  and  a 
magnitude  proportional  to  the  square  root  of  the  sum  of  squares  of  both 
components.  Thus,  velocity  vectors  have  a direction  = tan“l  (V/U)  and 

magnitude  proportional  to  yj v2.  The  proportional  constant  RPV  was 
originally  meant  to  represent  "rasters  per  velocity"  (cm/sec),  where 
there  are  1023  rasters  along  each  axis.  If  the  average  velocity  is 
20000  cm/sec,  in  order  to  space  vectors  without  overlapping,  RPV  is  set 
at  approximately  0.001  so  that  the  length  of  each  arrow  is  approximately 
20000  x 0.001  or  20  rasters.  Forty  or  fifty  arrows  would  then  confort- 
ably  fit  in  each  direction. 

As  an  example  of  a vector  plot,  Figure  C.9  depicts  velocity  and 
current  density  vectors. 

IVEL  = 1 

RPV  = 0.001  RPV  = 100.0 

(velocity)  (current) 

IVX  = 8 radial  velocity  IVX  = 26  radial  current 

IVZ  = 7 axial  velocity  IVZ  = 27  axial  current 

JPDEL  = 1 
KPDEL  = 1 

arrows  will  be  drawn  at  every  cell  in  the  axial  and  radial  directions. 

(4)  CONTOUR  MAPPING 

Contours  are  lines  of  a constant  property  value.  Contour  maps 
illustrate  regions  of  weak  or  strong  gradients  and  coupled  with  shade  in- 
tensity plots  or  3-D  plots,  depict  the  direction  of  gradients.  Sections  (3), 
(4),  and  (5)  of  this  report  contain  numerous  examples  of  contour  maps.  As 
a simple  example,  consider  the  following  input: 

MOVIE  = 3 
ISC  = -1 

El  = Minimum  Contour  Value 
E2  = Maximum  Contour  Value 
LI1  = Contour  Variable  (Table  C.l) 

Forty  contours  (fixed  in  program)  will  be  drawn  whose  equidistant  values 
lie  between  El  and  E2.  The  contour  map  for  this  problem  is  shown  in  Fig. 
C.10.  (Input  data  will  be  shown  later  in  Fig.  C.18). 
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CURRENT  DENSITY 


TIME  (MSEC)  .26 


Note:  Cells  defining  the  electrode-pairs 

(anode/cathode)  must  not  lie  on  the  extreme 
boundary.  In  the  example  above,  they  lie 
2 cells  below  this  boundary.  Simply  make 
RD  values  at  least  14  "DRO's"  less  than 
Rmax  £=  + (KP2  " D * DR°]  (See  FiS- 

C . 2 , page  215) . 


Figure  C.9  Vectors 
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CONTOUR  MAP 
PRESSURE 


CURRENT  STREAM  FUNCTION 


Figure  C.10  Contours 
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(5)  GREY-LEVEL  SCALING 

Grey-level  scaling  plots  are  generated  by  representing  each  con- 
tour region  of  a contour  map  by  a shade  intensity  or  grey  level.  The 
higher  the  value  of  the  contour  parameter  in  the  contour  region,  the 
darker  or  more  intense  the  shading.  The  advantage  to  this  type  of  scal- 
ing is  that  it  provides  a rapid  means  for  analyzing  large  amounts  of 
data  in  one  concise  plot.  Contour  plots  suffer  from  the  difficulty  in 
labelling  different  contours  especially  in  rapidly  changing  regions, 
whereas  the  combination  of  shade  and  contour  mapping  does  so  routinely. 

The  same  data  for  contour  mapping  is  used  for  shading  with  the  ex- 
ception that 

MOVIE  = 0 

Figure  C.ll  reveals  a shade/contour  map. 


(6)  TRACE  PARTICLES 

Trace  particles  as  the  name  implies,  traces  or  labels  the  trajec- 
tory of  a prescribed  number  of  particles  in  a dynamic  media.  Initially, 
particles  are  defined  at  specified  locations  (cells)  and  assume  the  ve- 
locity and  coordinates  of  that  cell.  After  a series  of  time  increments, 
the  particles  move  from  cell  to  cell  always  assuming  the  velocity  and 
coordinate  values  of  the  cell  that  it  lies  in.  Observing  the  motion  of 
these  particles  in  time,  the  motion  of  the  fluid  may  be  more  clearly 
understood. 

Figure  C.12  illustrates  tracer  particles  and  Mach  contours. 


(7)  THREE-DIMENSIONAL  PLOTS 

The  data  for  creating  contours: 

Grid  Coordinates  (X,Y) 

Variable  Z (e.g.,  P,  M,  T,  etc.) 

can  be  used  just  as  easily  to  create  a three-dimensional  plot.  The  ad- 
vantage of  the  3-D  graph  is  that  gradient  directions  become  apparent 
(peaks,  valleys)  whereas  they  are  not  so  with  contours.  Numerous  3-D 
plots  are  shown  in  Figures  C.13  through  C.17.  The  only  difference  be- 
tween contour  data  input  and  3-D  data  input  is  that  IDET  = 5 in  the 
latter  case. 

In  summary,  a number  of  plots  have  been  described  which  aid  in  the 
analysis  of  computer  results.  The  following  graphs  further  illustrate 
their  contributions. 


229 


AE  DC-TR-77-1  05 


Figure  C.ll  Grey-Level  Scaling 
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Figure  C.12  Trace  Particles 
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Figure  C.15  Three-Dimensional  Pressure 
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Figure  C.17  3-D  and  Contour  Plots  of  i|i 
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Three  Electrode-Pair  MHD  Generator 
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Figure  C.19a 
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Figure  C.21  Digital  Plot  of  Flow  Over  Sharp-Nosed  Projectile 
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Figure  C.22  Digital  Plot  of  Mach  Stem 
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Shock 


fUtf 

j4f 

Contour  mapping  alone  does  not  provide  information  relating  to  the  gradient  direction.  Howr.-r, 
supplementing  these  maps  with  a 3-0  perspective,  the  peaks  and  valieys  become  apparent.  < • 

used  in  this  figure  to  emphasize  regions  of  similar  Atach  number. 


Figure  C.23  Continued 
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Figure  C . 25  Continued 
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Figure  C.27  Transient  Pressure  Distribution 
(16-mm  Computer  Movie) 
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Figure  C.29  Initial  3-D  Distributions  of  Pressure  and  Current  Stream 
Functions  ( 16 -mm  Computer  Movie) 


Figure  C.30  Transient  Calculation 
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C . 5 TEST  CASES 


This  section  contains  a list  of  card  inputs  for  approximately  20 
"test  cases"  which  were  used  to  develop  the  numerical  solutions  presented 
in  this  report.  A list  of  these  cases  and  their  central  processor  execu- 


tion times  follows. 

Title 


1.  Flat  Plate 

2.  MHD  Generator-Inviscid 

3.  Simple  Nozzle 

4.  SOR 

5.  Inviscid  Nozzle  Flow 

6.  Couette  MHD 

7.  Shock  Tube  (Theta-Field) 

8 . Turbulence 

9.  M-117 

10.  Nozzle  Flow 

11.  Ablated  RV* 

12.  Nozzle  Choking/Shocks* 

13.  Shock  Induced  Eddies* 

14.  Sonic  Line 

15.  3 Electrodes 

16.  Nozzle  Flow 

17.  One  Electrode  (Beta  =5)* 

18.  Projectile 

19.  Re-Entry  Vehicle  (M  = 22) 

20.  Viscous  Diffusion 

21.  Couette  Flow 

22.  Thermal  Couette 

23.  Sound  Wave 

24.  MHD  Generator 


Location 

Cycles 

CP+ 

Minutes 

Grid 

Auburn 

300 

65 

25 

X 

150 

Auburn 

200 

41 

20 

X 

150 

Auburn 

100 

21 

48 

X 

48 

Auburn 

10 

4 

14 

X 

40 

Auburn 

50 

15 

48 

X 

98 

Auburn 

2500 

12 

9 

X 

3 

AEDC 

200 

4 

10 

X 

97 

AEDC 

200 

4 

25 

X 

50 

Auburn 

25 

87 

100 

X 

300 

Auburn 

250 

35 

25 

X 

80 

AEDC 

20000 

127 

50 

X 

100 

AEDC 

2000 

109 

25 

X 

80 

AEDC 

200 

238 

24 

X 

70 

AEDC 

1000 

71 

50 

X 

110 

AEDC 

100 

6 

30 

X 

103 

AEDC 
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4 

25 

X 

49 

AEDC 

75 

13 
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X 

40 

AEDC 

800 

91 

50 

X 

110 

AEDC 

250 

40 

50 

X 

150 

AEDC 

100 

8 sec 

9 

X 

3 

AEDC 

260 

15  sec 

9 

X 

3 

AEDC 

1100 

1 

9 

X 

3 

AEDC 

200 

5 

14 

X 

40 

Eglin 

1000 

200 

42 

X 

98 

Auburn  Computer:  IBM  370  (5/l)+ 

AEDC  Computer:  IBM  370  158 

Eglin  Computer:  CDC  6600 
+CP  Time  Based  on  CDC  6600 

^Generated  Movie  CP  Time  Predominately  for  Graphic  Commands 
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1 
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M— 117  SUBSONIC 


100  300  1 
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THERMAL  DIFFUSION 


9 

3 

0 

1 0 

1 

10 

1 

2 

500  1 

100 

1,0 

.2 

0. 

-1.1 

.01 

1. 

100. 

D. 

1. 

29. 

0. 

1 

1 

1 

5 

1. 

200. 

0. 

1. 

11 

1 

11 

5 

1. 

200. 

0.  1. 


FUNCTION  CONOCK, J. IHALF. JHALF) 

COMMON  /V 1 4/  NMAGN , NTHRM , NV I SC , NCONV , IPOT 

NTHRM=1 

C0ND=1 . 

RETURN 

END 

FUNCTION  CV(K,J,KHALF, JHALF) 

CV=1. 

RETURN 

END 

SUBROUTINE  HULLP1  ^ 

RETURN  / 

END  V Subroutines 

SUBROUTINE  HULLP2  ( "Dummied"  Out 

RETURN  \ 

END  / 


MAGNETIC  DIFFUSION 

9 

3 

0 

1 0 

1 

10 

1 2 

500  1 

100 

0 

.2 

0. 

-1.1 

.01 

0. 

0. 

1. 

.0796 

29. 

0. 
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1 1 

5 

1. 

.0796 

11 

1 11 

5 

1. 

.0796 

I 

.01  .75 

100. 


200. 


200. 


Subroutines 
"Dummied"  Out 


FUNCTION  SIGCK.J.KHALF, JHALF. KJ) 

COMMON  /V 1 4/  NMAGN. NTHRM, NV I SC. NCONV. IPOT 
S I G= 1 . 

NMAGN=1 

RETURN  — — — — — — 

END  NOTE:  Labelled  Common  Blocks  VI  to  V32  have 

since  been  renamed:  CARRAY,  COUTP, 
CMESH,  CBOUND,  etc. 


SUBROUTINE  HULLP1 

RETURN 

END 

SUBROUTINE  HULLP2 

RETURN 

END 
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VISCOUS  DIFFUSION 


9 

3 

0 

1 0 

1 

1.7 

0. 

1.7 

10. 

10 

1 2 

50 
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1.0 

.2 

0. 
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1. 
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0. 
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0. 
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10 

1. 

1. 

FUNCTION  GflMH<I,J) 
GflMM=l. 

RETURN 

END 


SOUND  WAVE 


14 
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1.  0.75  0. 
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BLRSIUS  FLAT  PLATE  (RE=2500> 


25 
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1 
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0 1 

0.048 

0. 
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0. 
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( 

3.000001 
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10 
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1. 

29. 

0. 

1 

1 

27 
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10 
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1. 

0 

0 

0 

0 

2 

0 1 

0 

1 
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1 
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1 
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5. 
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5. 

8 
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1 
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1 
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1 

1 
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1 

42 
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0. 
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1. 

1. 
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JET 

25 
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1 0 

1 

0 
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1 
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1 
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00001 
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1. 

29. 
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27 
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0.0023 

1. 

0 
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1. 
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0 

0 

0 
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0 
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1 

52 
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0. 
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-0. 
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52 

2 

-0.1 

1. 

1 

7 

0. 
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1 

52 

2 

0. 

1. 

1. 

1. 

0 
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0 
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52 
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27 
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52 

1 

1 

27 

1 

52 

2 

0.01 

0. 

99 

7 

0. 

1. 

1. 

1. 

FUNCTION  EDDY  (I.J  > 

COMMON  /VI/  R(52)»Z( 152>,DR(52)»DZ<152)*U<52» 152). V<52. 152) » 
1E<52» 152>.RHD<52. 152>.B<52, 152) 

REAL  R*8 
Ul=1.0 

EDDY=0. 014*0. 098«Z(J)*U1 

RETURN 

END 

FUNCTION  GAMMU.J) 

GAMM= 1 . 0 

RETURN 

END 
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CDUETTE  FLOW 
9 3 

100  1 1 100 

1.  .2 

0.0023 

0.0023  1.  29. 

1115 
0.0023 
0.0023  1. 

11  1 11  5 

0.0023  1. 

0.0023  1. 


1 110  1 
1000 

.0100  .0125 

.1929  E 10 

0. 

.1929  E 10 


.1929  E 10 


1. 


FUNCTION  GAMMU.J) 

GAMM=1.1 

RETURN 

END 

SUBROUTINE  SPEC 

COMMDN  /VI/  RU6).  Z(042),DRU6).DZ(042>»U(  16.042).  VU6.042). 
1E( 16.042),RH0( 16,042),B( 16,042) 

COMMDN  /V 4/  KMAX. JMAX.KP1. JP1.KP2, JP2. IflXI, ITURB, ISYM<4) 
E0=1000. 

P=-5. #P 
DD  1 J=1 , JP2 
DO  1 K=1.KP2 
CJ=J 

RHO<K, J)=0.0023 
V(K, J)=0. 

E(K,J)=CJ*P+EO 
1 CONTINUE 
RETURN 

END 


CDUETTE  FLOW  WITH  HEAT  TRANSFER 
9 3 1 110  1 

1000  1 1 100  1000 


1.  0.1 

0.0023 

0.0023  1.  29. 

1115 
0.0023 
0.0023  1. 

11  1 11  5 

0.0023  1. 

0.0023  1. 


-0.05  .0050  .0050 

1.0 
0. 

1. 


1.5 


1. 


1 2 
1 12  1 5 

-110.  290.  -350. 

1 12  1 5 1 

1 12  1 5 2 

1 12  4 4 7 

0.  1.  1. 


50. 


1. 


FUNCTION  GAMMU.J) 
COMMON  /V2/  VISC 
DATA  IKT/O/ 
GAMMU.O 
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RETURN 

END 

SUBROUTINE  SPEC 

COMMON  /VI/  R(16).Z(042).DR(16).DZ<042).U< 16.042).V<16.042). 
1E( 16.042).RH0(16.042).B< 16.042) 

COMMON  /V4/  KMRX. JMRX.KP1. JP1.KP2. JP2. IflXI. ITURB* ISYM<4) 

DO  1 J=l. JP2 
DO  1 K=1 . KP2 
CJ=J 

RHO<K. J>=0.0023 
V<K. J)=0. 

1 CONTINUE 
RETURN 
END 

FUNCTION  CONDCK. J. IHRLF, JHALF) 

COMMON  /V 1 4/  NMflGN * NTHRM . NV I SC . NCON V . IPOT 
NTHRM=1 

CDND=l./8. *0.0023 

RETURN 

END 

FUNCTION  C V < K . J . KHRLF . JHRLF ) 

CV=1. 

RETURN 

END 


COUETTE  MHD 


9 

3 

1 110  4 

250 

1 

1 

500 

2500 
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.0005  .0005 

1.0 

.1929  E 10  2. 
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1.0 
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1. 
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11 
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5 
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-350. 

50. 

1 

12 

1 

5 

1 

1 

12 

1 

5 

2 

1 

12 

4 

4 

7 

0. 

1. 

1. 

1. 

SUBROUTINE 

SPEC 

COMMON  /VI/ 

' R(52).Z(152),DR(52),DZ< 152).U<52, 152) 

1 E < 52* 152).RH0(52» 152).B(52. 152) 

COMMON  /V4/  KMRX. JMRX.KP1 . JP1 ,KP2. JP2. IflXI . ITURB.  ISYM<4) 
COMMON  /V6/  T I ME . DT . NCYCLE . NMRX . M I NDT . MRXDT 
COMMON  /V23/  BR<52. 177),BZ<52. 177) 

REAL  R*8 
DD  1 J=1 . JP2 
BZ< 1 1 . J)=0. 

BZ<1. J)=BZ<2. J) 

1 CONTINUE 
RETURN 
END 

FUNCTION  SIGCI.J.K.L.M) 

COMMON  /VI 4/  NMflGN. NTHRM. NVISC.NCONV, IPOT 

S I G= 1 . 0 

NMAGN=1 

RETURN 

END 

FUNCTION  GflMM(I.J) 

GflMM=l  .0 

RETURN 

END 
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SHOCK  TUBE  (NO  FIELDS) 
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RBLflTED  RE-ENTRY  VEHICLE 
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.00015 

1 

52 

1 

102 

-60. 

10. 

-50. 

0. 

1 

52 

1 

102  1 

1 

52 

1 

102  2 

0. 

4100. 

31 

1 

0. 

1. 

0. 
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0 

0 

0 

0 2 

0 

1 
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0. 

0. 
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152 
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0. 

1. 

SUBROUTINE  : 

SPEC 

COMMON  /VI/ 

R(52>.Z<152) 

»DR<52>, 

-DZ( 

152), 

U<52 

!.  152), 

► V<52. 152) 

* E <52 

1 

152) 

. RHQ(52 

. 152).B(52. 152) 

COMMON  /V6/ 

TIME.DT.NCYCLE.NMAX, 

.MINDT.MAXDT 

COMMON  / V7 

/ 

RHOO. VZ.VR.BO.EOi 

> VISCO.PERMO. 

SIGO.CQNDQ.CVO. 

VELOC 

1 .PH  10 

COMMON  /VI 5/  STRB.flRFV 

COMMON  /V25/  DE(52.177).  I OBK ( 202 M OBL ( 202 ) . DANGLE < 202  M DFN 

REAL  R#8 
DATA  IKT/O/ 

IKT=IKT+1 

IF(IKT.GT.l)  GO  TD  5 
5 CONTINUE 

IF(NCYCLE.GT. 100)  STAB=0.25 
IF(NCYCLE.GT.200>  STAB=0.50 
IF(NCYCLE,GT.4Q0>  STAB=0.75 
J=94 

DO  1 K=36. 52 

IF<U(K.  J+D.GT.O)  GO  TD  100 
RHO(K. J)=RHO<K, J+l ) 

U(K. J)=-U(K, J+l ) 

V(K. J)=V(K. J+l ) 

E(K. J)=E(K. J+l> 

GO  TO  1 

100  RHD(K. J)=RHOO 
U(K. J)=VZ 
V(K. J)=VR 
E(K. J)=EO 
RETURN 
END 
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DETACHED  OBLIQUE  SHOCK  (48  OEG) 
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FUNCTION  BETRd.  J. IHflLF. JHflLF) 

BETfl=5. 

RETURN 

END 
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FUNCTION  BETFKI. J. IHRLF. JHRLF) 
BETR=2. 

RETURN 

END 
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SUBROUTINE  SPEC 

COMMON  /VI/  R(52).Z<152).DR<52)»DZ<152>.U(52. 152).V(52. 152).E(52. 1 R 
152).RH0<52. 152)»B<52. 152> 

COMMON  /V4/  I MAX. JMRX. IP1 . JP1 * IP2» JP2. IRXI* IPTSF. ISYM(4) 

REAL*8  R.RIPH,RIMH,RIP3H,RT0P 
DO  1 K=i. IP2 
DO  1 J= 1 * JP2 
V<K» J>=0. 

B<K. J>=20000. 

1 CONTINUE 
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RETURN 

END 

FUNCTION  BETfl( I . J, IHflLF. JHflLF) 

CDMMDN  / V7  / RHOO. VZ. VR. BO. EO. VISCO. PERMO. SIGO. CDNDO# CVO. VELOC 
l.PHIO 
BETH=0. 

RETURN 

END 

FUNCTION  GAMMU.J) 

GflMM=l. 15 

RETURN 

END 

FUNCTION  SIG  (I. J. IHALF. JHALF. IN) 

COMMON  /VI 4/  NMflGN . NTHRM . NV I SC . NCONV . IPOT 
S I G= 1 0 . «*<-10) 

NMAGN=99999 

RETURN 

END 
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C . 6 PROGRAM  SUGGESTIONS 


The  most  expeditious  approach  to  learning  the  function  of  this 
program  and  avoiding  the  numeroud  pit-falls  which  discourage  further  use 
is  to  start  with  one  { of  the  many  test  cases  discussed  in  C.5  and  in 
stages,  refine  the  input  to  suit  the  particular  needs  of  the  problem  in 
question. 

The  major  and  most  frequent  error  that  occurs  is  numerical  insta- 
bility. It  is  easily  detected  by  observing  that  velocities  and  energy 
grow  exponentially  in  time;  the  density  vanishes  or  pressures  and  tem- 
peratures become  negative.  The  run  will  usually  terminate  abnormally 
and  give  various  diagnostics.  The  source  of  the  instability  is  an  ex- 
cessively large  time  step.  The  simple  procedure  for  correcting  thi^ 
error  is  to  reduce  the  time  step  through  the  input  parameter  STAB 
(DT  = DT  (Min)  x STAB),  which  is  normally  set  to  0.75.  Reducing  STAB  by 
10  to  50%  may  in  most  circumstances  result  in  a stable  calculation. 


C . 7 HULL  DIFFERENCE  MINORITY  REPORT 


The  development  of  methodology  employed  in  this  program  was  based 
strictly  on  comments  prefacing  the  HULL  computer  logic.  Written  by  one 
of  the  principal  authors,  Richard  E.  Durrett,  it  is  entitled  f,The  Hull 
Difference  Minority  Report."  From  this  explicit  5-page  summary  of  the 
HULL  technique,  a 6500  card  FORTRAN  IV  computer  program,  the  subject  of 
this  report,  was  developed! 


274 


275 


MINORITY  REPORT  ON  HULL 


THE  HULL  DIFFERENCE  METHOD 


THE  HULL  SYSTEM  EMPLOYS  THE  STANDARD  SHELL  DIFFERENCE  METHOD  OR  A 
MORE  STABLE.  FULLY  SECOND  ORDER  ACCURATE  METHOD  DEVELOPED  BY  CAPTAIN 
MATUSKA  AT  THE  AIR  FORCE  WEAPONS  LABORATORY  (AFWL).  THESE  ARE 
REFERRED  TO  AS  METHODS  1 AND  2 RESPECTIVELY. 


IS  DETAILED  IN  AFWL  TR  66 r 
THE  METHOD  IS  APPLIED  TO  THE  EQUATIONS  DESCRIBING  THE  BEHAVIOR  OF 


THE  SHELL  DIFFERENCE  METHOD  (METHOD  1) 
141.  METHOD  2 IS  PRESENTED  BELOW. 


A COMPPFSSIBLE,  NONCONDUCTING,  INVISCID  FLUID. 
THOSE  DESCRIBING 

CONSERVATION  OF  MASS 

O(RHO)+RHC*DIV(U#)=0 

CONSERVATION  OF  MOMENTUM 

RHO*D(U#H-GRAD(P)=-RHO*G# 

CONSERVATION  OF  ENERGY 

RHO*D(E) ♦DIVCP’U#) =-PHO*U#*G# 

ALONG  WITH  THE  EQUATION  OF  STATE 

p=P  (RHO,  I) 

WHERE 


THE  EQUATIONS  ARE 


(1) 


(2) 


(3) 


(4) 


D IS  THE  LAGRANGIAN  DERIVATIVE  WITH  RESPECT  TO  TIME 
DIV  IS  THE  VECTOR  DIVERGENCE 
SR AO  IS  THE  GRADIENT  VECTOR  OPERATOR 
?HO=MATERIAL  DENSITY  (GM/CM**3) 

»=  PRESSURE  (0YNES/CM**2> 

1= INTERNAL  SPECIFIC  ENERGY  tERGS/GM) 

J#=FLUIO  VELOCITY  (CM/SEC) 

E = I«-U#*U#/2  (ERGS/GM) 

G#= ACC  EL  ERA  TION  DUE  TO  GRAVITY  (CM/SEC**2) 

T=TIM£  (SEC) 

AND  the  SPECIAL  SYMBOL  # IS  USED  TO  INDICATE  A VECTOR  QUANTITY.  THE 
MULTIPLICATION  SYMBOL  (*>  BETWEEN  VECTORS  INDICATES  THE  DOT  FROCUCT. 

• EQUATIONS  1 THRU  3 ARE  APR  HO  XI  MATTED  BY-  -F-XNITE-  B-IEFE  RE  UCES- AN  £ — ARE 

SOLVED  EXPLICITLY  OVER  A DISCRETE  TIME  INTERVAL  DT  IN  TWO  PHASES.  THE 
RIDERS  THE  SOLUTION  TO  EQUATIONS  2 AND  3,  WHILE  JHE 


the  METHOD  WILL  BE  ILLUSTARTEO  FOR  THE  CASE  OF  AWOriJIlLENSIONAL  . 
AXISYMMETRIC  CYLINDRICAL  COORDINATES.  EQUATIONS  1 THRU  3 CAN  THEN 
BE  WRITTFN  AS 


0 ( RHO)  +RHO*  (1/R*PDR(R*U>  +PDZ  (V)  ) =0  (5) 

RHO*O(U)+PDR(P)=0  (6) 

RHO*D(V) +PDZ(P)=-9H0*G  (7) 

PHO*D (E ) +1/R* PDR (R*P*U)+PDZ(P*V)=-RHO*V*G 

(8) 

WHEPF 

R=RADI AL  COORDINATE 
7 = AXIAL  COORDINATE  . 

PD  R=PART IA  L DERIVATIVE  WITH  RESPECT  TO  THE  RADIAL  COORDINATE  - 

SDZ=PARTIAL  DERIVATIVE  WITH  RESPECT  TO  THE  AXIAL  COORDINATE 

J=COMPONENT  OF  U#  IN  THE  RADIAL  OIRECTION 

V=COMPONENT  OF  U#  IN  THE  AXIAL  OIRECTION. 

IN  ESTABLISHING  FINITE  DIFFERENCE  ANALOGS  TO  EQUATIONS  5 THRU-  A — 
WE  CONSIDER  A .OISCRFTE  SUBSET  OF  F(RT7,T)  BY  DEFINING 

F(I,J,N)=F  (R(I)fZ(J)  ,T(N)  ) 

WHERE.  R(I)  , Z(J),  AND  T (N)  ARE  PARTICULAR  VALUES  OF  R,  Z,  AND  T 
RFSPFCTIVELY,  AND  THE  I,  J,  AND  N ASSUME  INTEGER  VALUES  IN  THE  RANGE  1 
TO  IMAX  FOR  I,  1 TO  JMA  X FOR  J,  AND  0 TO  NMAX  FOR  N.  THE  R(I)  AND 

Z(J)  ARE  DEFINED  IN  TERMS  OF  A GIVEN  SET  OF  DR  ( I ) AND  -OZ~<  J4  -SUG-W  -THAT  - 


k(I)=R(0)  + (SUM,K=1,I-*1,  ( DR  ( K)  ) ) +DR  ( I)  /2 
R (1)=R(0  M-DP  (l)/2 

7 ( J ) =Z (0) +(SUM,K=i,J-l» (OZ(K) )) +0Z(J)/2 
7<l)=Z(w)+DZ(l)/P 

WHEPE  P(0>  AND  Z(0)  HAVE  SOME  SPECIFIED  VALUES. 

THE  HYDRODYNAMIC  VARIABLES  RHO,  U,  V,  AND  I 
ENERGY)  ARE  DEFINED  FOR  EACH  SET  OF  COORDINATES 
TIME  T(N).  THE  PRESSURE  P<I,J,N)  IS  DEFINED  AT 
EQUATION  OF  STATE  (EQUATION  4). 


FOR  1 = 2,  . 


FOR  J=2 , , 


. , IM  AX 


, JMAX 


(INTFRNAL  SPECIFIC 

AT  A PARTICULAR 
EACHToTNTBY~THE 


INTERPOLATED  VALUES  OF  THE  HYDRODYNAMIC  VARIABLES  OF  THE  FORM 
F (1  + 1/2 *J  »N),  F(I,J+1/2,N) , OR  F (I , J ,N +1/2 ) , OR  SIMILAR  FORMS,  ARE 
: OFEINED  IN  TERMS  OF  THE  F<I,J,N5.  IN  GENERAL  --  — 


F(  1+1/2,  J,N)  =(F(  I+i,  J,  N»  + F(I,J,N) T/2 


AND 


"(I  ,J  + 1/2,N)  = (F(I,J  + 1»N) +F  ( I , J,  N ) ) / 2. 

THIS  DEFINITION  WILL  APPLY  EXCEPT  WHERE  EXPLI€fTLYH<K>f-EB*-  - 

PHASE  I _ 

IN  METHOD  2 THE  FINITE  DIFFERENCE  ANALOGS  TO  EQUATIONS  6 THRU  8 
ARE  CHOSEN  AS  - - 


D(I,J,  N*i)=U(I,J  ,N)-DT*(P  (1+1/2,  J,N  +1/2)  -P(  1-1/2,  J,N*l/2)  ) 

/(RH01I,J,N)*DRtT))  - TSt  — 

V ( I , J , N «- 1 ) = V ( I , J , N ) - DT  * ( P ( I J «•!  tZ  , N ♦ 1 / 2J  - P ( I , J-l/ Z AN  ♦1/2L) 

/ ( RHO (I,J,N)+DZ(J) )-DT*G(J)  (10) 

* U ( I- 1/2 , J, N + l/2 ) ) / (R ( I) * DR ( I ) >+CP(I, J*l/2,N*l/2i 
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*V(I, J+l/2, N+l/2)  ?*P(I  » J-l/2  »N  + l/2 ) *V  £1 , J-i/2*N+l/2J  I 
/DZ(J)  >-DT*Vd,J»N+l)*G(J>  (11) 

WHEpF 

D T =T  <N+i)-T  (N) 

R ( 1+1/2 ) = Rd)  + DR(I)/2 
R ( 1-1/2)  = R ( C 1-1)  4-1/2)  ' 

Z< J+l/2)=Z(J)+D7(J)/2 
Z ( J-l/2 ) =Z ( (J-l)  +1/2) 

G ( J ) =V  ALUF  OF  G AT  Z(J). 

ALL  THE  VALUES  APPEARING  IN  EQUATIONS  9 THRU  11  ARE  IMMEDIATELY 
KNOWN  EXCEPT  THE  TIME  ADVANCrD  CN+1/2)  VALUES  FOR  PRESSURE  ANO 
VELOCITY.  THESE  TIME  ADVANCED  VALUES  ARE  USED  SO  THAT  THE 
APPROXIMATIONS  TO  THE  PARTIAL  DERIVATIVES  APPEARING  IN  EQUATIONS  6 
THRU  d MAY  BE  CENTERED  IN  TIME  ANO  SPACE.  IN  THE  CASE  WHERE 


OP ( I) =CONST  ANT 

FOR  1=1,.., 

., IMAX 

P7 (J)=CONSTANT 

FOP  J = i,.., 

., JMAX 

THIS  PRODUCES  A FULLY  SECONO  ORDER  ACCURATE  DIFFERENCE  METHOD.  IN  A 
PFGICN  WHERE  THE  DRd)  AND  DZ(J)  ARE  NOT  CONSTANT  THE  SECOND  ORDER 
ACCURACY  IS  LOST.  THIS  ADVERSELY  AFFECTS  THE  STABILITY  OF  THE  FIRST 
PHASE  CALCULATION.  THE  AMOUNT  OF  INSTABILITY  WHICH  MAY  BE  O0TA-I-NFO-  IS 
PFl.ATFD  TO  THE  MAGNITUDE  OF  THE  INCREMENTAL  CHANGFS  IN  0R(I)  AND 
07 (J)  . 

MOST  OF  THE  COMPUTATIONS  IN  THE  FIRST  PHASE  ARE  FXPENOEO  IN 
OBTAINING  THE  TIME  ADVANCED  VALUES  FOR  PRESSURE  ANO  VELOCITY.  THE 
TIME  ADVANCED  VELOCITIES  APE  OBTAINED  BY  DIFFERENCING  EQUATIONS  6 AND 
7 AS 

J (1+1/2.  J.N  + 1/2)  =U  (1+1  /2  * J » N ) -OT  / (2*RH0  (I+1/2.J  ,N+i/2) ) 

M(P(I  + 1,J,N)~P(I,  J,JL>)/  <R(I+i)-R(I)  )> 

~U£* 

V (I,J  + l/2,N  + l/2)  = V (I,  J + l/2,  N)-DT/^2*RH0(I,J+l/2>i+l/2>  ) 
M(P(I,J+i  ,N1*$/(I,J,N>)/  <Z(J+1)-\<J>  >> 

-G'  l + i/2)*0T/2  (13)  x 

.WHERE 

G ( J +1/  2 ) = ( G ( J ) +G  ( J+l  > > / 2 . 

THE  TIME  ADVANCED  DENSITIES  APPEARING  IN  E QU AlTO-NS — D 13  ARE 
OBTAINED  BY  DIFFERCNCING  EQUATION  5 AS 

RHO (1+1/2, J,N+ 1/2) =RHO (1+1/2 , J, N) *( 1-OT/ ( 2+R (1+ 1/ 2 ) ) * (R (I *1 ) 
*U(I+1, J,N)-R(I) +U(I,J,N)  ) / ( R( 1+1 ) -R  ( I ) ) ) 

(14) 

RHO(I, J+1/2,N+1/2)=RH0(I , J+1/2,N) *(i-DT/2*(V ( I, J+ 1 , N) - V ( I , J , N) ) 
/(Z  (J+i> -7(J)  ) ) (15) 


WHFRE  PI=3. 14159.  . . ANO  R (1+3/2)  =R(  (I+D+l/2)  . 

THE  TIME  ADVANCED  PRESSURE  APPEARING  IN  EQUATIONS  9 THRU  11 
REQUIRES  A LITTLE  MORE  EFFORT.  FIRST  AN  ALTERNATIVE  ENERGY  EQUATION 
CAN  B£  OBTAINED  FROM  EQUATIONS  2 AND  3 AS 

RHO*O(I)+P*DIV(U#)=0.  (16) 

AN  EFFECTIVE  GAMMA  CAN  BE  QEFINEO  BY  

SAMMA=i  + P/  f RHO+I  ) . (17) 

WE  WILL  ASSUME  FOR  THE  PURPOSES  OF  CALCULATING  A HALF  TIME  STEP 
AOVANCED  PRESSURE,  WHICH  IN  TURN  IS  USEO  IN  APPROXI MATING  THE  PARTIAL 
DERIVATIVES  IN  EQUATIONS  9 THRU  11,  THAT  THE  LAGRANGI4N  DERIVATIVE 
WITH  RESPECT  TO  TIME  OF  GAMMA  IS  SMALL  AND  CAN  BE  IGNORED.  IN 
APPLICATION  IT  IS  ONLY  REOUIREO  THAT  THE  CHANGE  IN  GAMMA  AT  -A  ...  - 

PARTICULAR  POINT  BE  SMALL  OVER  A TIME  OF  OT/2. 

TAKING  THE  LAGRANGI AN  DERIVATIVE  WITH  RESPECT  TO  TIME  IN  EQUATION 
17  ANO  USING  EQUATIONS  1 AND  16  WE  CAN  WRITE 

D ( P ) +GAMMA+P+DIV  (U#)=0»  (16) 

EQUATION  Id  IS  USEO  TO  OBTAIN  TIME  ADVANCED  PRESSURES  GIVEN  E*  — 

°( 1+1/2, J,N +1/2) =P (1+1/2, J,N)* (1-DT+ GAMMA (1+1/2, J,N )* (Rll+l ) 

*U(I  + 1,J,N)-R(I)*U(I,J,N))  / <2*R(I  + l/2)*tR<T+l> 
-R(I) m 

D ( I, J+l/2, N +1/2) -P( I, J+l/2, N) *(i-CT*GAMMA(I, J+1/2.N) 

♦ (V  (I , J + l, N)  -V(I,J,N)  >/(2*(7<J+l)  -Z(J)  ) )) 

WHFRE  GAMMA  IS  OBTAINED  FROM  EQUATION  17  AS 

GAMMA( 1+1/2, J,N) = 1+P (I +1/2 , J , N) / ( RHO ( 1+1/2, J ,N) * I < I +1 /2 , J ,N» I 

" AMMA(  I,  J+l/2 ,N)  =1+P  Cl, J + l/2, N)/  (RHO  (I, J + l/2  ,N)<M  (I , J+l/2,tj ))  * 

ALL  QUANTITIES  NEEDE"  TO  SOLVE  EQUATIONS  9,  10,  ANO  11  ARE  NOW 
DEFINED.  SOLUTION  OF  THESE  EQUATIONS  WILL  COMPLETE  -A  -SECOND- -OR-&E-R- 
ACFURATF  LAGRANGI AN  CALCULATION.  THE  NEXT  STEP  WOULD  NORMALLY  BE  THAT 
OF  TRANSPORTING  MESH  VERTICES.  INSTEAD  WE  CHOOSE  TO  fLUX  THE 
HYDRODYNAMIC  QUANTITIES  TO  RETAIN  THE  ORIGINAL  MESH  CONFIGURATION. 

THIS  CALCULATION  IS  DONE  IN  PHASE  TT, 

PHASE  II  . 

CHANGES  IN  DENSITY  ARE  COMPUTED  IN  PHASE  II  BY  CALCULATING  A HASS 
FLUX  BETWEEN  MESH  POINTS  AND  THEN  TRANSPORTING  THE  APPROPRIATE  AMOUNT 
OF  MASS  FROM  POINT  TO  POINT.  THE  TRANSPORTED  MASS  CARRIES  WITH  IT  A 
PROPORTIONATE  AMOUNT  OF  INTERNAL  ENERGY  ANO  MOMENTUM.  THE  VELOCITIES 
AMn  SPECIFIC  INTERNAL  ENERGY  ARE  THFN  REDEFINED  AT  EACH  MESH  POINT  BY 
CONSERVING  MOMENTUM  AND  TOTAL  ENERGY  AT  THAT  POINT. 

THE  MASS  FLUX  BETWEEN  MESH  POINTS  IS  DEFINFO  AS  THE  PRODUCT  OF  THE 

INTERPOLATE  VELOCITY,  THE  OENSITV  AS  DEFINED  8v  SOLUTION  OF  

FQUATION  1,  THE  INTERMEDIATE  CROSS  SECTIONAL  AREA,  AND  THE  TIME  STEP. 
THE  EQUATIONS  ARE 

yf (I+l/2,J,N+l)=U(I+l/2, J,N+i>* RHO (1+1/2, J, N +1) +2+P 1+ R ( I +1/2 ) 
*OZ(J)*OT 


RHO (1+1/2, J,N)=(M(I, J,N)+M(I+i, J,N> >/(PI+(R< I*  %)  **2 
-R(I-i/2>**2)*0Z(JI)  / 

RHO ( I, J+l/2, N)=(M (I, J, N) +M(I, J+1,N) )/(PI+ (R( 1+1 /7T^*Z 
-R(I-1/2)**2)*(DZ(J)+0Z(J+)') ) 

AND  THF  MASS  ASSOCIATED  WITH  A POINT  (I,J,N)  IS  OIFINEDBt 

M(I,  J,  N)=RHO(I,J  ,N)+  (PI*  (R(  I +1/2)  **2-R(I-i/.2)**2)  +DZ  ( J)  ) 


MF(I, J + l/2, N+1)  = V(I,J+ 1/2, N+1)+RH0(I , J+l/2, N+l)  *2*PI*fi(I)*0R(I) 

+ DT  

WHEPE  THF  TIME  ADVANCED  OFNSITIES  ARE  OBTAINED  qY  DIFFERENCING 
EQUATION  5 AS 


RHO  ( 1 + 1/2,  J,N+1)=R.H0  (I  D,  J ,N  ) * (1-DT/R(  1 + 1/2)  * (R(I+1) 

*U(I+i,  J,N+1)-R(I)  +U(I,  J,N  + 1))  /(RIIU)-R(IH) 


RHO(I, J+l/2, N + l)  =RHO  (I  , JO  ,N  J * ( 1- DT+  ( V ( I , J+l  , N+l ) - V ( I , J,  N + i)  ) 
/(Z(J+i)-Z(J)>> 
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WHERE 


10= 


1=1  IF  U(I+i/2,J,N+i>  GT  0 
-*+i If  U ( 1+1/2  ,J,N+U tT— fl- 

IF  V(I.J+l/2,N+i)  GT  0 
IF  V ( X , J+T7  2 ,N  + I I L T OT 


J0=  J 
= J+i‘ 


OBVIOUS  ADVANTAGES  OF  THIS  TECHNIQUE  ARE  ITS  RIGID  

CONSERVATION  AND  ITS  STABILITY,  THIS  SCHEME  ALSO  INSURES  THAT  MORE 
MATERIAL  CAN  NOT  ~B€  REM0V2O  FRO* -A  POINT  THAN  — I5--PRE-SENT  , 

HULL  HAS  A CONTINUOUS  REZONE  CAPABILITY.  WHEN  THIS  IS  EMPLOYED 
INTERPOLATED  "VFL'OCI 


~TffE~TNTER'  . 
REPLACED  BY 


U( 1+1/2, J, N+l) -UR  (1+1/2* J*N  +11 
V ( I-rJ^lr/-2  ,~H+1>  -VRd  , J+l/2, N +1T~ 


RDTNA TE  GRITJT". ' 


THE  CORRESPONDING  MOMENTUM  FL-UXES-ARE- 


UF  (I+i/2, J, N + 1)  = MF (1+1/2, J,  N+l)  *U<ID,J,N+1I 


Vp  (1+1/2  »J,N+1)=  HF  (1+1/2  *J*N  + i)  + V(ID,J,N+1I 


UF(  I,  J+i/2,  N+1)  = MF  (I , J+l/2  * N+iT+U  (I  , JD*N  + lF 
VF  ( I , J+l/2  ,-N+l  )=  HF-(-I , J + t/-a,  N»l)-«  V(I , JQ,N»1> 


AND  THE  ENERGY  FLUXES  ARE 


EF (I+i/2, J,N+1)=MF (1+1/2, J,N+i)*E (ID, J, N+l) 

EF ( I,  J+l/2, N+l)  = MF (I , J+i/2  * N+iT + E (I ,JD,N  + lTl  ~ 

WHEN  THESE  QUANTITIES  ARE  FLUXE-0  F-I-NAL — VALUES  F, OR— MA-S-S Q£A1SXUL» 

VELOCITY,  AND  ENERGY  ARE  COMPUTED  BY 


M(I,J)-M(I,J,K _ 

-MF  (I+i/2,  J,  N+l) -MF(I,J+i/2,  N+l) 

RHfflTTJf  =H  < I , J >/  fPI*  (R I T+1 7 2>  -RTI-I72)  "2T+QZ  ( J) ) 

U(I»J)=(U  (-£,  J , N+  1 1 , Jf-N)  +IIFCI-1  /2  , J-^ILUI  + UE1 T, J-l/2,  N + i) 

-UF  ( I +i/2 » J »N +1 ) -OF  ( X , J+l/2,  N+l)  ) /H(  I , J) 

V ( iTJt-tV  (I,J,N+1>»X(I.J,N)»VF(I"1/2,J,N+1)  » VE(irr l/2rt*+l ) 

- VF ( I, J+l/2, N +1 > -VF( I+i/2, J, N+i) )/M(I,J> 

+ JTR+ D + EFTI  i J- 1 /2 , N +11 

-EF (I+i/2 .J, N+l  I -EF ( I , J+1/2,N+1) - (0(1 ,J>  ++2+V ( I »J )*¥2) 
/2MM4I,  J) — 

E(I,  J»=I(I,  J)+«J(I»J)**2+V(I>J)  +*2)  /2 


WHERE  THE  LACK  OF  A TIME  SPECIFICATION  INDICATES  FINA.  VALUES  FOR  THIS 
TIME  STEP, 
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COMMDN/CMHD/INSJ( 225) . DVOL  T.  BRSEP.  DPDT.  SPRCE.  SPINSL . JPLMIN.  JPLMRX  59 

COMMON  /CINI T/  RHOO.  VZ.  VR.  BO.  BRO.  BZO.  EO.  PH  10.  PERMO,  VELOC.  RRFV.  PERM  60 

l.NVECT.NPDIM  61 

COMMON  /CCRLC/  BL . EMF . MCRLC.  NMRGN.  NTHRM.  I POT.  IDFN.  IPTSF  62 

COMMON  /TPL  T / TPL  TMI.  TPL  TMR.  TPL  TOE.  TPL  TOL . TZERO.  T 63 
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RERL«8  R.RD  64 

C 65 

C 66 

C FDR  IBM  370,  REPLRCE  VI TH  "CRLL  DRIVER"  67 

CRLL  DRIVER  68 

CRLL  SECOND  (R)  69 

VRITE  (6.10)  R 70 

CRLL  PLDTTE  71 

CRLL  SECOND  (R)  72 

VRITE  (6,10)  R 73 

CRLL  EXIT  74 

75 

76 

77 

10  FORMRT  (12H  CP  SECONDS.  2X.E12.  4)  78 

END  79 

SUBROUTINE  DRIVER  80 

C 81 

C 82 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  83 

C EXECUTIVE  ROUTINE  CRLLING  HYDRO:  PHRSE  I RND  II.  THERMRL  CONDUCT-  84 

C ION.  MRGNETIC  INDUCTION.  TIME-STEP.  INPUT/OUTPUT  RND  CRRPH  85 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  86 

C 87 

C 88 

COMMON  /CRRRRY/  RHO(45. 225) U(45. 225) , V(45. 225) . E(45. 225) , PHI  (45.  89 

1225).BD(1.1).BR(1.1).BZ(1.1).DE(1.1)  90 

COMMON  /COUTP/  Tl  TLE(15) . KPDEL . JPDEL . NPLOT.  NPRN,  NO  I GPL . NGRRPH  9 1 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 . JP1 , KP2.  JP2  92 

COMMON  /CBDUND/  DRNGLE(225) . I0BK(225) . IOBL  (225) . ISYM(4) . IRXI.  IOBQ  93 

COMMON  /GRRVTY/  GC.  GR.  GZ  94 

COMMON  /C TIME/  TIME.  DT.DTT.S TRB.  MIND T.  MRXD T.  NC YCL E.  NMRX  95 

COMMON/CGRID/R(  45) . RD(45) . Z(225) , DR(45) . DZ(225) . XD(45) . ZMIN,  RMIN.  D 96 

1ZO,  DRO.  IGRRPH( 225) . NBOUND  97 

COMMON  /CCRL  C/  BL . EMF.  MCRL  C,  NMRGN.  NTHRM.  I POT.  IDFN,  IP  TSF  98 

COMMON  /CINI T/  RHOO,  VZ.  VR,  BO,  BRO . BZO.  EO.  PH  10.  PERMO . VELOC.  RRFV.  PERM  99 

l.NVECT.NPDIM  100 

CDMMON/CMHD/ 1 NSJ( 225) . DVOL  T.  BRSEP.  DPOT.  SPRCE.  SPINSL . JPLMIN.  JPLMRX  1 0 1 

COMMON/CMR  TRX/  RC0EF(225) . BC0EF(225) , CC0EF(225) . DC0EF(225) . SUB(225  1 02 

1 ) . DIRG(225) . SUP (225) . CONST (225)  1 03 

COMMON/CS T0RE/RH0F(2. 225) . UF(2. 225) . VF(2. 225) . EF(2. 225) . MFR(225) . 1 04 

1 UR (225),  VR(225) , UFR(225) . VFR(225) . EFR(225) . PR (225)  105 

COMMON /C S TRSS/ TRRR ( 225) . TZZR(225).  T00R(225 ).  TRZR(225).  VISC.  VISCO  106 

COMMON  /CMRGN/BFR ( 225 ) . BZZR(225) . BZFR(225) , BF(2. 225) . BFR(2. 225) , 1 07 

1BFZ ( 2, 225)  108 

COMMON/ETRODE/RNDDE ( 225) . CRTH0D(225)  1 09 

RERL*8  R.RD  110 

C 111 

C 112 

KL=0  113 

NFLD=0  114 

NCDND=0  115 

NVISC=1000  116 

IDFN=0  117 

RERD  (5.90)  (TITLE( I).  1=1, 15).  IPRN  118 

VRITE  (6.100)  (TITLE(I),  1=1. 15)  119 

IF  (IPRN.E0.9)  GO  TO  80  120 

NCYCLE=0  121 

DT=10.mm(-12)  122 

IPR= 1 123 

GZ=0.  124 

GR=0.  125 

C CRLLING  FDR  INPUT  RND  SETTING  INITIRL  RND  BOUNDRRY  CONDITIONS  127 
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C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXX  1 28 

CRLL  INPUT  129 

NP0T=IPDT  130 

IPRNT=IPRN  131 

10  CRLL  BOUND  132 

CNPRNT=NPRN  133 

CNPRN T =CNPRNT/1 0.  134 

IF  (CNPRNT.GT.l)  IPR=CNPRNT  135 

IF  (NPOT.  L T.  I POT.  OR.  I POT.  EQ.  0)  GO  TO  30  1 36 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  137 

C xxxxxxxxx  INITIRL  CONVERGENCE  OF  CURRENT  STRERM  FUNCTION  xxxxxxxxx  138 

C XXXXXXXXXXXXXXXXXXXXXXXXXXX  OR  POTENT I RL  xxxxxxxxxxxxxxxxxxxxxxxxx  139 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  140 

IDFN=1  141 

CRLL  BOUND  142 

KLNRX=DPOT  143 

IF  (NCYCLE.EO.O)  KLMRX=BR5EP  144 

DO  20  KJ=1 . KLMRX  145 

KL=KL  + 1 146 

WRITE  (6.110)  KL  147 

CRLL  EFIELD  148 

20  CONTINUE  149 

30  CONTINUE  150 

C XXXXXXMXXMXXXXMXXMXXXXXXMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 5 1 

C xxxxxxxxxxxxxxxxxxxxxxxxxxx  OUTPUT  RND  PLOT  DRTR  xxxxxxxxxxxxxxxxx  152 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  153 

IF  (MOO(NCYCLE.IPR).EQ.O)  WRITE  (6.150)  TIME.OT.NCYCLE  154 

IF  ( MDD(NC YCL E.  NPRN) . EO.  0.  ) CRLL  OUTPUT  155 

IF  ( MOD ( NC YCL E , NPL OD.EQ.O.  RND.  NPDIM.  GT.O)  CRLL  GRRPH  156 

IF  (NCYCLE.GT.NMRX)  GO  TO  70  157 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 58 

C xxxxxxxxxxxxxxxxxxxxxxxxx  PHRSE  I (HYDRO)  xxxxxxxxxxxxxxxxxxxxxxxx  159 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm  1 60 

CRLL  HULLP1  161 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 62 

C xxxxxxxxxxx  COMPUTING  TIME  STEP  RND  BOUNDRRY  CONDITIONS  xxxxxxxxxx  163 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxmxmxmxxxmx  1 64 

CRLL  TMESTP  165 

CRLL  BOUND  166 

IF  (NCDND.LT.  NTHRM)  GO  TO  50  167 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 68 

C xxxxxxxxxxxxxxxxxxxxxx  THERMRL  CONDUCTION  xxxxxxxxxxxxxxxxxxxxxxxx  169 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 70 

NCDND=0  171 

IDFN=2  172 

CRLL  BOUND  173 

WRITE  (6.120)  174 

CRLL  TEND  IF  175 

DO  40  K=2.KP1  176 

DO  40  J=2.  JP1  177 

ENERGY =E(K,  J) -0.  5x (U(K,  J)xx2+  V(K.  J)xx2)  1 78 

E(K.  J)=CV(K.  J . 0. 0)*DE(K.  J)  -ENERGY+0. 5*(U(K,  J)xx2+  V(K.  J)xx2)  1 79 

40  CONTINUE  180 

50  CONTINUE  181 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 82 

C xxxxxxxxxxxxxxxxxxxxxx  MRGNETIC  INDUCTION  xxxxxxxxxxxxxxxxxxxxxxxx  183 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 84 

IF  (NFLD.LT.  NMRGN)  GO  TO  60  185 

NFLD=0  186 

IDFN=1  187 

CRLL  BOUND  188 

WRITE  (6.130)  189 

CRLL  DFSN  190 

60  CONTINUE  191 
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C ***XJ*XX**X**X*M***m****M**)KM******X****X*****M***M**Ml*Mmm*******MM  1 92 

C xxxxxxxxxxxxxmxmxxxxxxm  PHRSE  II  (CONVECTION)  MX******************  193 

C J*XXXXXXMXXXXXMXXXHHXMX*mXH*XXXXXMXMXXXXX*XXXXXXXXXXXXXMMMXMXX)KXXXX  1 94 

CRLL  HULLP2  195 

IDFN=0  196 

TIME=TIME+DT  197 

NC  YCL  E =NC  YCL  E+l  198 

NFLD=NFLD+1  199 

NCOND=NCOND+ I 200 

NPDT-NPDT+1  201 

IF  (NPOT.  CT.  IPOT)  NP0T=1  202 

CRLL  SECOND  (R)  203 

IF  ( MOD (NCYCLE,  IPR) .EQ.O)  WRITE  (6,140)  R 204 

IPRN=0  205 

IF  ( MOD ( NCYCLE.  NPRN).EQ.O)  IPRN=IPRNT  206 

GO  TO  10  207 

70  CONTINUE  208 

80  RETURN  209 

C 210 

C 211 

C 212 

90  FORMRT  (15R4. 19X.I1)  213 

100  FORMRT  (1H1 . ///.  15X.  15R4)  2 1 4 

110  FORMRT  (29H  PHI  OR  PS I I TERR T IONS  NUMBER.  5X.  13)  215 

120  FORMRT  (26H  TEMPERRTURE  ITERRTION  ) 216 

130  FORMRT  OSH  MRGNETIC  INDUCTION  ITERRTION  ) 217 

140  FORMRT  (12H  CP  SECONDS.  2X.E12.  4)  218 

150  FORMRT  (6X.  lOO(lHm),  /.  20X.  7HTIME  = . El 2.  4. 5X.  5HDT  = . E12.  4. 5X.  9HNC  2 1 9 

1 YCLE  = . 14.  /.  6X.  lOO(lHm))  220 

END  221 

SUBROUTINE  INPUT  222 

223 

224 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  225 

CRRD  RND  TRPE  INPUT  DRTR  226 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  227 

228 
229 

COMMON  /COUTP/  TI  TLE(15) . KPOEL . JPDEL . NPLOT.  NPRN.  NDIGPL . NGRRPH  230 

COMMON  /CRRRRY/  RHO(45.225).U(45.225).  V(45.225).E(45.225).PHI(45.  231 

1225).  BO(l.  1).BR(1. 1),BZ(1. 1).DE(1. 1)  232 

COMMON  /CBOUNO/  DRNGLE(225) . I0BK(225) . IDBL  (225) . IS YM(4) . IRXI.  IOBO  233 

COMMON  /CMESH/  KMRX.  JMRX.  KP1 . JP1 . KP2.  JP2  234 

COMMON/CMHD/INSJ ( 225 ) . DVOL  T.  BRSEP.  DPOT.  SPRCE,  SPINSL . JPLMIN.  JPLMRX  235 

COMMON  /GRRVTY/  GC.  GR.  GZ  236 

COMMON  /CT  I ME/  TIME,  DT.  DTT.  STRB.  MINOT.  MRXDT.  NCYCLE.  NMRX  237 

CDMMDN/CGRID/R  (45) . RD(45) . Z(225) . DR  (45) . DZ(225) . XD(45) . ZMIN.  RMIN.  0 238 

1Z0,  DRO.  IGRRPH( 225) . NBOUND  239 

COMMON  /CCRLC/  BL . EMF,  MCRL C.  NMRGN.  NTHRM.  IPOT.  IDFN.  IPTSF  240 

CDMMON/CS TRSS/ TRRR ( 225) . TZZR(225).  T00R(225).  TRZR(225).  VISC.  VISCO  24 1 

COMMON  /CINI T/  RHOO,  VZ.  VR.  BO.  BRO.  BZO.  EO.  PHIO.  PERMO.  VELOC.  RRFV.  PERM  242 

l.NVECT.NPDIM  243 

COMMON/CMR TRX/  RC0EF(225) . BC0EF(225).  CC0EF(225).0C0EF(225).SUB(225  244 

1 ) . DIRG(225) . SUP (225) . CONST (225)  245 

COMMON  /CTRPE/  IRST  246 

DIMENSION  BLRYER(9).  ELECT (9)  247 

RERL  MV.  MINDT,  MRXDT  248 

RERL*6  R.RD  249 

DRTR  BFT.  BFR.  BFZ.  BPHI/0.  ,0.,0.,0./  250 

DRTR  BLRYER.ELECT/4H  IN.4HVISC.4HID  ,4H  LR.  4HMINR.  4HR  ,4H  TUR  251 

1 . 4HBULE.  4HNT  . 4H  N.  4H0  EM,  4HF  . 4HMG  1, 4HNDUC.  4HTI0N.  4HP0ND . 4H  252 

2ERM0, 4HTIVE/  253 

C 254 

C 255 
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C *****************************  UNITS  ******************************  256 

C RHO  CM  CM-3  K GM  CM  SECS  K-I  B GRUSS  257 

C ******************************************************************  258 

C U CM  SEC-1  CV  ERG  GM-1  K-l  259 

C ******************************************************************  260 

C R CM  T DYNE-CM  261 

C ******************************************************************  262 

C Vise  GM  CM- 1 SEC-1  (PS)  263 

C ******************************************************************  264 

C B = GRUSS  ( GM/RBCOUL  /SEC  ) = 10-4  WEBER/METER2  265 

C ******************************************************************  266 

C PERM  = 4*Pl  ( GM-CM/RBC0UL2)  = 4*PI*10-7  WEBER/RMP/METER  267 

C **********************j^********** ******** *************************  268 

C CDND  - (SEC-RBC0UL2/GM/CM3  = 10-11  1 /OHM/METER  269 

C ******************************************************************  270 

C IRST=(0)  NO  RESTRRT,  =(-l)  WRITE  RES TRRT  TRPE,=(1)  RERD  RESTRRT  271 

C ******************************************************************  272 

C *****  I=INVISCID(BL=0.  );L=LRMINRR(BL=1.  );  T=  TURBULENCE  (BL  =2.  ) *****  273 

C ****  NO  EMF(EMF=0. );  M=MRGN  INDC(EMF=l . );  P=L0RENTZ(EMF=2. ) ******  274 

C ****  MCRLC  *****  012345678  275 

C I L T I. M L,M  T,M  UP  L,P  T.P  276 

C ******************************************************************  277 

C 278 

C 279 

BL=0.  280 

SPINSL=0.  281 

SPRCE=0.  282 

EMF=0.  283 

PIS.  1416  284 

WRITE  (6.310)  285 

C ******************************************************************  286 

C ********  INI T I RL I ZING  CELL  VRLUES  RND  DEFINING  MRTERIRL  **********  287 

C ****************************  PROPERTIES  **************************  288 

C ******************************************************************  289 

RERD  (5. 160)  RMRX.  JMRX . IRXI.  IPTSF.  ISYM(l).  ISYM(2).  ISYM(3 ).  ISYM(4 ).  290 

1NVEC  T.  NPDIM.  MCRL  C.  IRS  T.  IOBQ.  I POT  291 

IF  (MCRLC.  EO.  l.OR.  MCRLC.  EO.  4.  OR.  MCRLC.  EQ.  7)  BL=1.  292 

IF  (MCRLC.  EO.  2.  OR.  MCRLC.  EQ.  5.  OR.  MCRLC.  EO.  8)  BL=2.  293 

IF  (MCRLC.  GT.  2.  RND.  MCRLC.LT.  6)  EMF=1.  294 

IF  (MCRLC.  GT.  5)  EMF=2.  295 

IBL=1.+BL*3.  296 

I BH=  I BL  +2  297 

IEMFL =1 . +EMF*3.  298 

IEMFH=IEMFL +2  299 

WRITE  (6.140)  (BLRYER(I).  I=IBL.  IBM).  (ELECT(J).  J=IEMFL.  IEMFH)  300 

IF  (IOBQ.EQ.O)  GO  TO  20  301 

DO  10  N=1 , 25  302 

RD(N)=0.  303 

10  XD(N)=0.  304 

IOK=IRBS ( IOBQ)  305 

RERD  (5.170)  (RD(I).XD(I).I=1,IDK)  306 

C IF  (NVECT.E0.2)  RERD  (5.120)  (RB(I).XB(I).  1=1. 1 OK)  307 

20  IF  (IPOT.EQ.O)  GO  TO  30  308 

RERD  (5.180)  SPRCE . SPINSL . BRSEP.  DPOT.DVOL  T,  JPLMIN.  JPLMRX  309 

30  RERD  (5. 190)  NPRN.  KPDEL . JPDEL . NPLOT.  NOIGPL . NMRX.  NCYCLE  3 1 0 

RERD  (5. 200)  DZO.  DRO.  ZMIN.  RMIN.  MINOT.  MRXDT.  STRB.  TZERO  3 1 1 

RERD  (5. 210)  RHOO . VZ.  VR.  EO.  BO.  BRO.  BZO.  PH  10  3 1 2 

RERD  (5.220)  VISCO.PERMO.MW.RRFV  313 

TIMES  ZERO  314 

PERMO=PERMO*4.  *PI  315 

KP1=KMRX+1  316 

JP1=JMRX+1  317 

KP2=KMRX+2  318 

JP2=JMRX+2  319 
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WRITE  (6.240)  KMRX.  JMRX . IRXI,  IPT5F.  ISYM(l).  ISYM(2).  ISYM(3 ).  ISYM(4)  320 

1 , NVEC  T.  NPDIM.  MCRL  C.  IRS  T.  IDBQ.  I POT  321 

IF(IOBO.NE.O)  WRITE(6, 245)  (RD(I).XD(I).  1=1.  IOH)  322 

IF  ( IOBO.NE.O ) WRITE  (6.120)  323 

IF  (IPDT.NE.O)  WRITE  (6.250)  SPRCE.5PINSL.BR5EP.DPOT.DVOLT.  JPLMIN.  324 

1JPLMRX  325 

WRITE  (6.260)  NPRN, HPDEL . JPDEL , NPLOT. NDIGPL , NMRX, NCYCLE  326 

WRI TE  (6. 270)  DZO.  DRO.  ZMIN.  RUIN,  MINOT . MRXDT.  STRB.  TZERO  327 

WRI  TE  (6. 280)  RHOO.  VZ.  VR.  EO.  BO.  BRO.  BZO . PH 10  328 

WRITE  (6.290)  VISCO.PERMO.MW.RRFV  329 

DO  40  J-1.JP2  330 

I0BL(J)=KP2+1  331 

I0BK(J)=KP2+1  332 

IGRRPH(J)=HP2+1  333 

DRNGLE(J)=0.  334 

INSJ(J)=0  335 

DO  40  K=1 . KP2  336 

RHD( K , J)  =RHOO  337 

U(K.  J)=VZ  338 

V(K,  J)=VR  339 

E (K.  J)=EO  340 

IF  (EMF.  EO.  2.  ) PHI  (H,  J)=PHIO  341 

IF  (EMF.NE.l.)  CO  TO  40  342 

BO(K,  J)=BO  343 

BR(K.J)=BRO  344 

BZ(K.J)=BZO  345 

40  CONTINUE  346 

PERM-PERMO  347 

VISC=VI5C0  348 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  349 

xxxxxxxxxxxxxxxxx  RSSIGNING  VRLUE5  TO  SPECIRL  CELLS  xxxxxxxxxxxxxx  350 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3 5 1 

50  RERD  (5. 230)  H1.J1.  K2.  J2.  BRHDO.  BVZ.  BVR.  BEO.  BBO.  BBRO.  BBZO.  BPHIO . BY  I 352 

1SCO.BPERMO  353 

IF  (Kl.EO.O)  GO  TO  80  354 

BPERMO=BPERMO*4.  *PI  355 

WRI  TE  (6. 300)  HI,  Jl,  K2.  J2.  BRHDO.  BVZ.  BVR.  BEO.  BBO.  BBRO.  BBZO.  BPHIO.  BV  356 

1 1 SCO,  BPERMO  357 

DO  70  H=K1,K2  358 

DD  70  J=J1.J2  359 

RHO(K.  J) -BRHDO  360 

V(K.J)=BVR  361 

U(K.J)=BVZ  362 

E(H,  J)=BEO  363 

IF  (EMF.NE.l.)  GO  TO  60  364 

BO(K,  J)=BBO  365 

BR(K,  J)=BBRO  366 

BZ(K.  J)=BBZO  367 

60  CONTINUE  368 

IF  (EMF.  EO.  2.  ) PHI  (K.  J)  =BPHIO  369 

VISC=BVISCO  370 

PERM=BPERMO  371 

70  CONTINUE  372 

GO  TO  50  373 

60  CONTINUE  374 

WRITE  (6.310)  375 

WRITE  (6.130)  376 

IF  (IRST.LT.l)  GO  TO  110  377 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  378 

C xxxxxxxxxxxxxxxxxxxxx  RERD  INPUT  TRPE  FOR  RESTRRT  xxxxxxmxxxmxxxxx  379 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMM  380 

REWIND  15  381 

RERD  (15)  I RST.  NCYCLE.  T.DT  382 

NMRX =NC YCL E +NMRX  383 
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T1ME=T  384 

WRITE  (6.150)  IRST.NCYCLE.  TIME  385 

DO  100  IZ=1.JP2  386 

DD  100  IX=1,KP2  387 

IF  (EMF.NE.l.)  GO  TO  90  388 

BFT=BD( IX,  IZ)  389 

BFR=BR(  IX.  IZ)  390 

BFZ-BZCIX.  IZ)  391 

90  CONTINUE  392 

IFCEMF.EO.  2.  ) BPHI=PHI  < IX.  IZ)  393 

RERD(15)  RHO( IX,  IZ).  U(IX.  IZ).  V(IX.  IZ).E(IX.  IZ).BFT.BFR.BFZ.BPHI  394 

100  CONTINUE  395 

110  CONTINUE  396 

CALL  GEOM  397 

RETURN  398 

399 

400 

401 

120  FORMAT  (//)  402 

130  FORMAT (1H1)  403 

1 40  FORMAT  (//.  20X,  3A4. 5X.  3A4,  //)  404 

150  FORMAT  (IX.  120(1HX)./.25X.  14HRE5TART  TAPE  . I3.2X.  10HF0R  CYCLE  . 15  405 

1 . 2X.  8HAT  TIME  . El 2.  4. 4H  SEC.  /.  IX.  120(1HX) ) 406 

160  FORMAT  (1615)  407 

1 70  FORMAT  (8E10.  4)  408 

180  FORMAT  (5E10.  4. 215)  409 

190  FORMAT  (815)  410 

200  FORMAT  (8E1 0.4)  411 

210  FORMAT  (8E1 0.4)  412 

220  FORMAT  (8E1 0.4)  413 

230  FORMAT  (415.  /.  8E10.  4.  /.  8E10.  4)  414 

240  FORMAT  (9H  KMAX  ,9H  UMAX  ,9H  I AX  I ,9H  IPTSF  ,9HISYM(1)  415 

1 ,9H  ISYM(2)  ,9H  I5YM(3)  ,9H  ISYM(4)  ,9H  NVECT  ,9H  NPDIM  ,9H  416 

2MCAL  C ,9H  IRST  . 9H  IOBQ  ,9H  I POT  ./,  14  (3X.  13. 3X) .//)  417 

245  FORMAT (2X.  4(1 1H  RD  .11H  XO  )./.2X.8(lX.  F10. 2)./)  418 

250  FORMAT  (2X.1  OH  SPACE  . 2X.10H  SPIN5L  .2X.10H  BASEP  . 2X.10H  419 

1 DPOT  . 2X.10H  DVOLT  ,2X.6HJPLMIN.2X.6HJPLMAX./.5(2X.E10.4).2  420 

2(2X,  16),//)  421 

260  FORMAT  (10H  NPRN  . IOH  KPDEL  , 10H  JPDEL  . 10H  NPLOT  . 10  422 

1H  NDIGPL  , IOH  NMAX  . IOH  NCYCLE  ,/.2X,  15.6X.  I5.5(4X.  15).//)  423 

270  FORMAT  (2X.  IOH  DZO  .2X.10H  DRO  . 2X.10H  ZMIN  .2X.10H  424 

1 RMIN  .2X.10H  MINDT  .2X.10H  MAXDT  .2X.10H  STAB  . 2X.10  425 

2H  TZERO  . /.  8( IX,  El  1 . 4).//)  426 

280  FORMAT  (2X.  IOH  RHOO  .2X.10H  VZ  . 2X.10H  VR  .2X.10H  427 

/ EO  .2X.10H  BO  .2X.10H  BR  .2X.10H  BZ  .2X.10  428 

2H  PHI  ./.8(1X,E11.4).//)  429 

290  FORMAT  (2X.  IOH  VISCO  . 2X.10H  PERMO  .2X.10H  MW  . 2X.10H  430 

1 ARFV  ,/.4(lX,E11.4),//)  431 

300  FORMAT  (3X.20H  HI  Jl  K2  J2  ./.3X.4I5./.10H  RHOO  ,10H  432 

/ VZ  . IOH  VR  . IOH  EO  . IOH  BO  ,10H  BRO  .10  433 

2H  BZO  .IOH  PHIO  ,/.  1X.8E10. 3./.  IOH  VISCO  . IOH  PERMO  434 

3 ./. 1X.2E10.3 .//)  435 

310  FORMAT  (//.  128(lHm)./.  128(1H*)./.  128(1H>k))  436 

END  437 

SUBROUTINE  OUTPUT  438 

C 439 

C 440 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  44 1 

C PRINTS  OUTPUT  FOR  HYDRODYNAMIC.  MAGNETIC.  ELECTRIC  AND  VISCOUS  442 

C PARAMETERS  443 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4 4 4 

C 445 

C 446 

COMMON  /CARRAY/  RHO(45, 225).  U(45. 225).  V<45. 225).E(45. 225).  PHI (45.  447 
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1225).B0(1.1).BR(1. 1).BZ(1. 1).DE(1. 1)  448 

COMMON  /COUTP/  TI  TLE(15) , KPDEL . JPDEL . NPLOT,  NPRN,  NDIGPL , NGRRPH  449 

COMMON  /CMESH/  KMRX.  JMRX,  KP1  ,JP1,  KP2.  JP2  450 

COMMON  /CBOUND/  DRNGLE(225) . IOBKC225) . IOBL (225) . ISYM<4) , IRXI,  IDBO  45 1 

COMMON  /GRRVTY/  GC.  GR.  GZ  452 

COMMON  /CTIME/  TIME.  DT.  DTT.  5TRB.  MINOT.  MRXDT.  NCYCLE.  NMRX  453 

CDMMON/CGRID/R(45) . RD(45) . Z(225) . DR (45) . DZ(225) . XD(45) . ZMIN.  RMIN.  D 454 

1ZO.  DRO . IGRRPH(225) . NBOUND  455 

COMMON  /CCRL  C/  BL , EMF.  MCRL  C.  NMRGN.  NTHRM.  I POT.  IDFN.  IPT5F  456 

COMMON  /CINI T/  RHOO.  VZ.  VR.  BO.  BRO.  BZO.  EO.  PH  10.  PERMO.  VELOC.  RRFV . PERM  457 

l.NVECT.NPDIM  458 

COMMON/CMHD/INSJ( 225 ) , DVOL  T.  BR5EP.  DPOT , SPRCE.  SPIN5L . JPLMIN.  JPLMRX  459 

COMMON/CMR TRX/  RC0EF(225).BCDEF(225).  CC0EF(225) . DC0EF(225).SUB(225  460 

1 ) , DIRG(225) , SUP(225) , CONS T (225)  461 

COMMON /CS TRS5/TRRR ( 225) , TZZR(225).  T00R(225).  TRZR(225).  VI5C . VISCO  462 

COMMON  /CTRPE/  IR5T  463 

DIMENSION  CON (52)  464 

RERL*8  R.RD.RR  465 

RERL  JR.  JZ.  JR  1 . JZ1 . 1 NT.  MINOT.  MRXDT  466 

DR  TR  BFT.  BFR.  BFZ.  BPHl/O.  ,0.,0..0./  467 

C 468 

C 469 

P0TN=0.  470 

DO  10  KK=1.KP2  471 

10  C0N(KK)=0.  472 

RTM=1. 013*10. **6  473 

WRITE  (6.170)  474 

WRITE  (6.160)  (TITLE(I),  1=1, 15)  475 

C ******************************************************************  476 

C **********  PRINTING  HYDRODYNRMIC  VRRIRBLES  ***********************  477 

C ******************************************************************  478 

DO  20  J=1 . JP2.  JPDEL  4 79 

WRITE  (6.150)  Z(J).  TIME. DT  480 

WRITE  (6.220)  481 

WRITE  (6.190)  482 

WRITE  (6,220)  483 

DO  20  L=1,KP2,  KPDEL  484 

I=KP2+1~L  485 

RR=R( I)  486 

IF  ( IRXI.  EO.  0)  RR=R( I )-10.  **5  487 

INT=E(I.  J)-0. 5*(U( I.  J)**2+V( I.  J)**2)  488 

GRMMR=GRMM( I,  J)  489 

P=(GRMMR-1 . )*RHO( I.  J)*INT  490 

ZZ=Z(J)  491 

CMRCH=0.  492 

CMRCH=SQRT(GRMMR*RBS(P)/RHO( I , J))  493 

IF  (CMRCH.NE.O.  ) CMRCH=(U(I.  J)**2+  Y(I,  J)m*2)**0.  5/CMRCH  494 

TEMP=(E( I.  J)-0.  5*(U(I,  J)**2+V( I,  J)**2))/CV(I.  J,  0, 0)  495 

P=P/(1. 013*10.  **6)  496 

WRITE  (6,180)  J.  I.RR.RHO(  I,J),U(  I,  J),V(1,J),E(I,J),  INT.P,  TEMP,  CMRC  497 

1H  498 

20  CONTINUE  499 

IF  (BL.EQ.O..RND.EMF.NE.1)  GO  TO  70  500 

C ******************************************************************  50 1 

C **********  PRINTING  VISCDUS-MRGNETO  (STRESS)  VRRIRBLES  ***********  502 

C ******************************************************************  503 

WRITE  (6,170)  504 

DO  60  J=1,JP2,  JPDEL  505 

WRITE  (6. 150)  Z(J).  TIME.DT  506 

WRITE  (6.220)  507 

WRITE  (6,200)  508 

WRITE  (6.220)  509 

DO  60  L=1.KP2,  KPDEL  510 

JzKP2+J-L  511 


285 


A E D C-T  R-77-1 05 


RR=R(I)  512 

IF  (IRXI.EQ.  0)  RR=R( I >-100000.  513 

TZZIJ=0.  514 

TRRIJ=0.  515 

TD0IJ=0.  516 

TRZIJ=0.  517 

IF  (I.EO.  KP2.  OR.  J.  E0.  JP2)  GO  TO  40  518 

IF  (BL.E0.2)  GO  TO  30  519 

ERRIPH=(V(  1+1 . J)-V(  I.  J))/(R( I+1)-R(I)>  520 

EZZJPH=  (U(l.J+l)-U(l.J))/(Z(J+l)-Z(J))  521 

EDOIPH=(V(I+l.  J)  + V( L J))/(R(I+1)+R(I))  522 

ERZIPH=(U(  1+1 , J)-U( I,  J))/(R( I+1)-R(D)  523 

ERZJPH-  (V(I.J+1)-V(1.J)  )/(Z(J+ 1 ) -Z(J)  ) 524 

EE  I JPH-EZZJPH+ERRIPH+EODI  PH  525 

TRRIJ=(-2.  * VISCmERRIPH-2.  /3.  * VISC*EEIJPH-BR< I.  J)**2/PERM)/RTM  526 

TZZIJ=  (-2.  x VISCxEZZJPH-2.  /3.  * VISC*EEIJPH-BZ< I,  J)**2/PERM)/RTM  527 

TOOIJ=  (-2.  x VISCxEDOIPH-2.  /3.  x VISCxEE IJPH-BO< I.  J)xx2/PERM)/RTM  528 

TRZIJ=  ( VISCx ( ERZIPH+ERZJPH) -BR( I . J)xBZ(I,  J)/PERM)/RTM  529 

30  IF  (BL.EQ.l)  GO  TO  40  530 

ERZPH=(U(I+l.J)-U(l.J))/(R(I+l)-R(D)  531 

TRZIJ=-EDDY(I.  J)xERZPH  532 

40  CONTINUE  533 

EDMU=EDD Y( I,  J)  + VI SC  534 

IF  (EMF.NE.l.)  GO  TO  50  535 

BFO=BO( I.  J)  536 

BFR=BR( I,  J)  537 

BFZ=BZ(I.J)  538 

50  CONTINUE  539 

WRI TE  (6, 180)  J,  I,  RR.  BFO.  BFR.  BFZ,  EDMU.  TZZIJ,  TRRIJ,  TDQIJ.  TRZIJ  540 

l.TRZIJ  541 

60  CONTINUE  542 

70  CONTINUE  543 

IF  (EMF.LT.2.)  GO  TO  100  544 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXMXXMXX  545 

C xxxxxxxxxx  PRINTING  ELECTRICRL  VRRIRBLES  xxxxxxxxxi nxxxxxxxxxxmxxxx  546 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxk  547 

WRITE  (6.170)  548 

DO  90  J=1 . JP2.  JPDEL  549 

WRITE  (6.220)  550 

WRITE  (6.210)  551 

WRITE  (6.220)  552 

DO  90  L=1  .KP2.KPDEL  553 

I=KP2+1-L  554 

RR=R(  1 ) 555 

IF  (IRXI.EQ.  0)  RR=R( I)- 100000.  556 

JR=0  557 

JZ=0  558 

IF  (I.EO.  LOR.  I.  EO.  KP2.  DR.  J.  EO.  1 . OR.  J.  EO.  JP2)  GO  TO  80  559 

IF  (J.E0.2)  PDTN=0.  560 

UU=U(I.J)  561 

VV=V(I.J)  562 

CRLL  CURRNT  (JZ.  JR.  EZ.  ER.  UU.  VV.  I.  J . 0. 0)  563 

UU=U(I.J-1)  564 

VV=V(1.J-1)  565 

JM=J-1  566 

CRLL  CURRNT  (JZ1 . JR1 . EZ1 . ER1 . UU.  VV.  I.  JM.  0. 0)  567 

CON(  I )=POTN  568 

POTN=CON( I )- ( JR+JR1  )/2.  x (Z(J) -Z(J-1 ) ) 569 

IF  ( IPTSF.  EO.  1)  PO TN-CON( I ) - (EZ+EZ1  )/2.  x (Z(J) -Z(J- 1 ) ) 570 

PVOL  T=PHI(I.  J)xlO.  xx(-B)  571 

IF  (IPTSF.NE.2)  PV0LT=P0TNxl0.xx(-8)  572 

PSI=PHI  (I.J)  573 

IF  ( IPTSF.  EO.  2 ) PSI=P0TN  574 

80  CONTINUE  575 
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5IGG=5IG< I>  J.  0 . 0. 0) 

BETT =BE TOd.J.O.  0) 

RG0G=RG0S(P.  T) 

T=(E (I.  J)-0. 5*(U( I,  J)**2+  Y(I,  J)**2))/CV(l,  J,  0. 0) 

BB=B(1.J) 

WRI  TE  (6. 180)  J.  I,  PVOL  T,  P5I.BB.  BETT.  SIGG.  JZ.  JR.  EZ.  ER 
90  CONTINUE 
100  CONTINUE 

IF  ( NOIGPL.NE.O ) COLL  01  GPL  T 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxx  RES  TORT  TOPE  xxxxxxxxxxxxxxxxxxxxxxxx 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

IF  ( MOD  ( NC  YCL  E.  NPRN) . NE.  0)  GO  TO  130 
IF  < IRST.EQ.O ) GO  TO  130 
REMIND  15 

WRITE  (6.140)  IRST.NCYCLE.  TIME 

TZERO=TIME 

IRST=IRST+1 

IF  (IRST.EQ.O)  1RST=1 

L MOX =NM0X +NPRN 

WRITE  (15)  IRST.NCYCLE.  TIME. DT 
DO  120  IZ=1.JP2 
DO  120  IX=1.KP2 
IF(EMF.  EQ.  2.  ) PHI  (IX.  IZ)=BPHI 
IF(EMF.NE.l.)  GO  TO  110 
B0( IX,  IZ)=BFT 
BR( IX.  IZ)=BFR 
BZ ( IX.  IZ)=BFZ 
110  CONTINUE 
120  CONTINUE 
130  CONTINUE 
RETURN 
C 
C 
C 

140  FORMOT  (IX.  120(1  HX)./.25X,  14HRESTORT  TOPE  . I3.2X.  10HFOR  CYCLE  .15 
1.2X.8H0T  TIME  .E12.4.4H  SEC,/.  IX.  120(1  HX)) 

150  FORMOT  (/,  25X.  5HZ  = . El 2.  4. 5X.  7HTIME  - , El 2.  4. 5X.  5HDT  = . E12.  4.  /) 
160  FORMOT  (25X.1504,/) 

170  FORMOT  (1H1) 

180  FORMOT  (2(2X.  I3).9(1X.  El 2.  5)) 

190  FORMOT  (2X.3H  J .2X.3H  I , 13H  R . 13H  DENSITY  . 13H 

1 VELOC-Z  , 13H  VELDC-R  . 13H  TOT  ENERGY  . 13H  INT  ENERGY  ,13H 

2 PRESSURE  ,13H  TEMPEROTURE  . 13H  MOCH  NO  ./.10X.13H  CM 

3 . 13H  GM/CM3  . 13H  CM/ SEC  ,13H  CM/ SEC  . 13H  ERG/G 

4M  . 13H  ERG/GM  . 13H  OTMOSPHERES  , 13H  DEGREE  K . 13H 

5—  .//) 

200  FORMOT  (2X.3H  J .2X.3H  I , 13H  R . 13H  B .130 

1 BR  . 13H  BZ  , 13H  EODY+VISC  . 13H  TZZ  .13H 

2 TRR  , 13H  TOO  . 13H  TRZ  ./.10X.13H  CM 

3 , 13H  GOUSS  . 13H  GOUSS  . 13H  GOUSS  . 13H  GM/CM- 

4SEC  . 13H  OTM  . 13H  OTM  . 13H  OTM  . 13H  0 

5TM  .//) 

210  FORMOT  (2X.3H  J .2X.3H  I . 13H  POTENT IOL  .13H  STREOM  FNCT  .130 
IB  .130  BETO  , 130  ELECT  COND  . 130  JZ  . 13H 

2 JR  , 130  EZ  , 13H  ER  ./.l  OX.  130  VOLTSxEd 

3 , 13H  0MP/CM38  . 13H  GOUSS  . 13H  , 130  MHO/M  E 

411  ,130  0MP/CM2  .130  0MP/CM2  . 1 30  GOUSSCM/SEC  . 1 30G0USS 

5CM/SEC  ) 

220  FORMOT  (2X.  124(1 Ox)) 

END 

SUBROUTINE  GROPH 
C 
C 
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C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  640 

C WRITES  TO  DISK  VRLUES  OF  RLL  VRRIRBLES  FDR  RLL  CELLS  INDRDER  641 

C FOR  PLOTTING  LRTER  642 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  643 

C 644 

C 645 

COMMON  /CRRRRY/  RHO(45, 225) . U(45. 225) . V<45, 225) . E(45. 225) . PHI  (45.  646 

1225) . BO(  1 . 1 ).BR<  1 . 1 ). BZ( 1. 1 ).DE(1. 1)  647 

COMMON  /CMESH/  KMRX.  JMRX.  KP1 . JP1 . KP2.  JP2  648 

COMMON  /CBOUND/  DRNGLE(225).  I0BK(225).  IOBL (225).  ISYM(4).  IRXI.  IDBQ  649 

COMMON  /GRRVTY/  GC.  GR.  GZ  650 

COMMON  /CT I ME/  TIME.  DT.DTT.STRB.  MINOT.  MRXDT.NCYCLE.NMRX  651 

COMMON/ CGR I D/R( 45) . RD(45) . Z(225) . DR (45) . DZ(225) . XD(45) . ZMIN.  RMIN . 0 652 

1ZO.  DRO . IGRRPH(225) . NBOUND  653 

COMMON  /CCRLC/  BL . EMF.  MCRLC.  NMRGN.  NTHRM.  IPDT.  IDFN.  IPTSF  654 

COMMON /CS TRSS/ TRRR ( 225 ) . TZZR(225),  T00R(225).  TRZR(225).  VISC.  VI SCO  655 

COMMON  /CINI T/  RHOO.  VZ.  VR.  BO.  BRO.  BZO.  EO.  PHIO.  PERMO.  VELOC.  RRF V.  PERM  656 

l.NVECT.NPDIM  657 

COMMON/CMHO/INSJ( 225) . DVOL  T.  BRSEP.  DPOT.  SPRCE.  SPINSL . JPLMIN.  JPLMRX  658 

COMMON/CMR TRX/  RC0EF(225) . BCDEF(225) . CC0EF(225) . DC0EF(225) . SUB(225  659 

1 ) . DIRG(225) . SUP (225) . CONST (225)  660 

DIMENSION  DUMVRR(50).  DNM(525).  CON (52)  661 

COMMON  /TPL  T/  TPL  TMI.  TPL  TMR.  TPL  TOE.  TPL  TDL . TZERO . T 662 

RERLxd  R.RD  663 

RERL  JR.  JZ.  JR  1 , JZ1 , 1 NT  664 

C 665 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  666 

C xxxxxxxxxxx  SUBROUTINE  RDPLT  CONTRINS  R VRRIRBLE  LIST  xxxxxxxxxxxx  667 

c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  668 

P0TN=0.  669 

GRMMR=GRMM( 1.1)  670 

LBJ=0  671 

NUM=KP2xJP2  672 

RIMH=0.  673 

DO  110  1=1.KP2  674 

DO  110  J=1.JP2  675 

DO  10  L-01.36  676 

10  DUMVRR(L)=0.  677 

RIPH=R(  I)+DR(  I )/2.  678 

IF  (LEO.  1)  GO  TO  20  679 

RIMH=R (I~l) +DR ( I )/2.  680 

20  LBJ=LBJ+1  681 

C xxxxxxxxxxx  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  682 

C xxxxxxxxx  RS SIGNS  VRLUES  OF  CELL  (I.J)  TO  DUMVRR  RRRRY  xxxxxxxxxxx  683 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  684 

DUMVRR( 1 )=I  685 

DUMVRR(2)=J  686 

Y=R(I)  687 

IF  ( IRXI.  EO.  0)  Y=R( I)- 100000.  688 

DUMVRR  ( 3) =Y  689 

DUMVRR(4)=Z(J)  690 

DUM VRR ( 5) =DR (I ) 691 

DUMVRR (6 )=DZ(J)  692 

DUM  VRR  (7)=U(  I , J)  693 

DUMVRR  ( 8)=V(  I.J)  694 

INT=E( I.  J)-0 . 5x(U(I.  J)xx2+V(I.  J)xx2)  695 

DUM VRR (9) =( GRMMR- 1 . )xRHD( I.  J)xINT  696 

DUMVRR ( 10)=E( I.  J)  697 

DUMVRR ( 1 1 )=INT  698 

DUMVRR ( 12) =SOR T ( GRMMRxRBS ( DUMVRR ( 9) )/RHO(I.  J) ) 699 

IF  (DUMVRR(9).  NE.  0 . ) DUMVRR ( 1 3) =(U( I.  J)xx2+  V(I.  J)xx2)xx0. 5/SQRT(GR  700 

1 MMRxRBS ( DUM VRR ( 9) )/RHO(I.  J))  701 

DUMVRR( 14)~RHO( I.  J)  702 

DUMVRR ( 15)  =3. 1416xRHO(I.  J)x(RIPHxx2-RIHHxx2)mDZ(J)  703 
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IF  (EMF.EQ.  1.  > DUMVRR(  16)=BD( I , J)  704 

IF  (LEO.  KP2.  DR.  J.  EO.  JP2)  GO  TO  40  705 

ERRIPH=(V( I+1.J)-V( I,  J))/(R(  1+1  )-R( I))  706 

EZZJPH~(U(I,  J+1)-U(I.  J))/(Z(J+1)-Z(J>)  707 

EOOIPH=(V(I+1.J)  + V(I.J))/(R(I+1)+R(I))  708 

ERZIPH=(U(I+I.J)-U(I.J))/(R(I+1)-R(I))  709 

ERZJPH=  (V(I.J+1)-V(I.J))-(Z(J+1)-Z(J>)  710 

EEIJPH=EZZJPH+ERRIPH+EOOIPH  711 

TRRIJ=-2.  * VISC*ERRIPH-2.  /3.  xEEIJPH  1 1 2 

TZZIJ=-2.  *VISC*EZZJPH-2.  /3.  mEEIJPH  1 1 3 

T00IJ=-2.  * V I SCxEOD  I PH-2.  /3.  xEEIJPH  1 1 4 

TRZ  IJ=  VISCx  (ERZ IPH+ERZJPH)  715 

IF  (EMF.NE.l.)  GO  TO  30  716 

TRRIJ=  TRRIJ+BR(I.  J)  mm 2 /PERM  1 1 7 

TZZIJ=TZZIJ+BZ(I.J)**2/PERM  718 

TOOIJ=  T001J+B0C  I,  J)xx2/PERM  7 1 9 

TRZ  I J=  TRZ  I J+BR(  I , J)*BZ(l,  J)/PERM  720 

30  CONTINUE  721 

DUM  VRR  ( 1 7)=TRRIJ  722 

DUN VRR (18)= TZZI J 723 

DUN  VRR  (19)=T00IJ  724 

DUM VRR (20)= TRZ I J 725 

40  CONTINUE  726 

DUM VRR (21 )=T I ME  727 

DUM VRR ( 22 )=DT  728 

DUMVRR(  23) =VISC  729 

IF  (EMF.EQ.  1.)  0UMVRR(24)=BR(I,J)  730 

IF  (EMF. EO.  I.)  DUMVRR(25 ) =BZ( I,  J)  731 

IF  (EMF.EQ.O.)  GO  TO  50  732 

JZ=0  733 

JR=0  734 

IF  (I.  EO.  I.  OR.  I.  EO.  HP2.  OR.  J.  EO.  1 . OR.  J.  EO.  JP2)  GO  TO  50  735 

IF  (J.E0.2)  P0TN=0.  736 

UU=U(  I,  J)  737 

VV=V(I.J ) 738 

CRLL  CURRNT  (JZ.  JR.  EZ.  ER.  UU.  VV.  I.  J.  0. 0)  739 

UU=U(I.J-1)  740 

VV=V(I.J-I)  741 

JM=J-1  , 742 

CRLL  CURRNT  (JZ1.JR1.EZ1.ER1.UU.VV.  I.JM.O.O)  743 

DUM VRR ( 2&) = JR  744 

DUM  VRR  (27)  =JZ  745 

DUMVRR(  19)=(JR-BETR( I.  J.  0. 0)xJZ)/SIG( I.  J.  0. 0. 0)+U(I.  J)*B(I.  J)  746 

DUMVRR(20)=(JZ+BETR( I , J.  0. 0)xJR)/SIG(  I.  J V 0. 0. 0)-V(I,  J)«B(1.  J)  747 

CON(  I )=POTN  748 

POTN=CON(I)- ( JR+JR1  )/2.  m(Z(J)-Z(J-l) ) 749 

IF  (IPTSF.EO.l)  POTN=CON( I) - (EZ+EZ1  )/2.  »(Z(J)  -Z(J- 1 ) ) 750 

SO  CONTINUE  751 

GRMMR=GRMM(I.  J)  752 

DUMVRR( 28) =GRMMR  753 

SI=SIG(I.J.  O.O.O)  754 

DUMVRR(29)  =51  755 

SIGMR=5.  668x10.  xm(-5)  756 

DUMVRR(30)=0.  757 

KOBL =KP2+ 1 - IOBL  ( J)  758 

IF  (I.GE.IOBL(J))  DUM VRR( 30)  =2.  759 

IF  (NVECT.EQ.  1)  GO  TO  60  760 

IF  (I.LE.KOBL)  DUMVRR(30)=2.  761 

60  CONTINUE  762 

CVV=CV(I.J.O.O)  763 

DUMVRROl  )=INT/CVV  764 

IF  (EMF.  NE.  2.)  CO  TO  65  765 

PVOL  T=PHI( I,  J)mlO.  »m(-B)  766 

IF  (IPTSF.NE.2)  PVOLT=POTNxlO.**(-8)  767 
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PSI=PHI(I,J)  768 

IF  (IPT5F.EQ.2)  P$I=PDTN  769 

DUM VRR ( 32 )=P VDL  T 770 

DUMVRR( 33) =P5I  771 

BET=BETR( I,  J,  0*  0)  772 

DUM VRR (34) =BE T 773 

DUM VRR ( 35)=CDND( I . J,  0, 0)  774 

65  CONTINUE  775 

IF  (I.GT.l.  RND.  I.  L T.  KP2.  RND.  J.GT.l.  RND.  J.  L T.  JP2)  DUMVRR(36)=(U( 1+1  776 

1,J)-U(I-1.J))/(2.*DR(I))  + (V(I,J+1)-V(I,J-1))/(2.*DZ(J))  111 

DUMVRR(9)=DUMVRR(9)/<1. 013*10.  **6)  778 

IF  (LBJ.EQ.t)  INUMB=0  779 

IN0=1NUMB*36  780 

DO  70  MI N= 1,36  781 

IN0=INUMB*36 +MIN  782 

70  DNM  ( I NO)  -DUM  VRR  (MIN)  783 

I NUMB= I NUMB + 1 784 

IF  ( I.  EO.  KP2.  RND.  J.  EO.  JP2)  INUMB=0  785 

IF  (INUMB.EQ.  14)  INUMB=0  786 

IF  (I.  L T.  KP2.  OR.  J.  L T.  JP2)  GO  TO  90  787 

LM1=IN0+1  788 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*  789 

C xxxxxxxx  WRITES  TO  DISK  (UNIT  14)  BLOCKED  DRTR  OF  THE  xxxxxxxxxxxx  790 

C XXXXXXXXXXXXXXXXXXXXX  CELL  PRRRMETER  VRLUES  XXXXXXXXXXXXXXXXXXXXXX  791 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXmXXXMMXXXKX  792 

DO  80  LM=LM 1.504  793 

80  DNM(LM)=0.  794 

90  IF  (INUMB.GT.O)  GO  TO  100  795 

WRITE  (14)  (DNM(KX).KX=1, 504).  TIME.  NCYCLE.DT  796 

T=TIME  797 

100  CONTINUE  798 

IF  ( I.  EO.  KP2.  RND.  J.  EO.  JP2)  PRINT  120,  TIME,  NCYCLE  799 

110  CONTINUE  800 

RETURN  801 

C 802 

C 803 

C 804 

120  FORMRT  (12H  T, NCYCLE  .2X.E12.4.2X,  15)  805 

END  806 

SUBROUTINE  DIGPL  T 807 

808 
809 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  8 1 0 

GENERRTES  DIGITRL  PLOTS  811 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  8 1 2 

813 

814 

COMMON  /CRRRR K/  RH0(45, 225) , U(45, 225) , V(45, 225) , E(45, 225) , PHI (45,  8 1 5 

1225) , B0( 1,1),  BR( 1 , 1 ),BZ( 1 , 1 ),  DE( 1 , 1 ) 816 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 , JP1 , KP2,  JP2  817 

COMMON  /C BOUND/  DRNGLE(225),  I0BK(225),  IDBL  (225),  ISYM(4),  IRXI,  IOBQ  818 

COMMON  /GRRVTY/  GC,  GR.GZ  819 

COMMON  /CTIME/  TIME.  DT,  DTT,  STRB,  MINDT,  MRXDT,  NCYCLE,  NMRX  820 

C0MM0N/CGRID/R( 45) . RD(45) . Z(225) , DR (45) , DZ(225) , XD(45) , ZMIN,  RMIN,  0 82 1 

120,  DRO, IGRRPH(225) . NBOUND  822 

COMMON  /CCRLC/  BL , EMF,  MCRLC,  NMRGN,  NTHRM,  I POT,  IDFN,  IPTSF  823 

COMMON  /CINI T/  RHOO.  VZ,  VR,  BO,  BRO.  BZO.  EO,  PHIO,  PERMO,  VELDC,  RRFV,  PERM  824 

l.NVECT.NPDIM  825 

COMMON / CMHD / 1 NSJ( 225 ) . DVOL  T,  BRSEP,  DPOT,  SPRCE,  SPINSL , JPLMIN,  JPLMRX  826 

CDMMON/CMR TRX/  RC0EF(225) , BC0EF(225) , CC0EF(225) , DC0EF(225) , SUB (225  827 

1 ) , DIRG(225) , SUP (225) . CONST (225)  828 

DIMENSION  IPLT(132)  829 

RERL*8  R.RD  830 

RERL  JR.  JZ,  JZMIN,  JZMRX,  JRMIN,  JRMRX,  I NT  831 
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c 832 

C 833 

RTM=1. 013*10. **6  834 

GRMMR=GRMM (1,1)  835 

PRMB=1 . 0*RTM  836 

RMIN=RH0(1. 1)  837 

RMRX=RHO< 1.1)  838 

UM I N=U< 1,1)  839 

UMRX=U(1.1)  840 

VMIN=V<1.1)  841 

VMRX-V(l.l)  842 

PMIN=E (1,1 )*RHD( 1 . 1 )*(GRMMR-1 . ) 843 

PMRX=E ( 1 , 1 )*RHD( 1, 1 )*(GRMMR-1 . ) 844 

CMIN=(U(1. 1)**2+V(1, 1)**2)**0.  5/SOR T ( GRMMR*RB5 ( PMIN)/RHO(  1 , D)  845 

CMRX=(U(1, 1)**2+V(1. 1)**2)**0. 5/50RT(GRMMR*RB5(PMIN)/RHD(  1 , 1 ))  846 

PM  I N=E  ( 1 . 1 )*RH0(  1,1)*  (GRMMR-  l.)/RTM  847 

PMRX=E(1, 1 )*RH0(1 , 1 )* (GRMMR- 1 . )/RTM  848 

TMIN=10.  **7  849 

TMRX=-10.  **7  850 

C ************X*X***********XX**XX*****X*XXXXXX*XXXXXXXXXXXXX**XXXXX  85 1 

C xxxxxxxx  SEEKING  MINI MUM/MRX I MUM  VRLUES  FDR  PRESSURE,  xxxxxxxxxxxx  852 

C xxxxxxxxxxxxx  VELOCITIES,  DENSITY,  MRGN  INDUCTION  xxxxxxxxxxxxxxxx  853 

C xxxxxxxxxxxxxxxxxxx  RND  MRCH  NUMBER  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  854 

C *xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  855 

DD  10  K-1.KP2  856 

DD  10  J=1,JP2  857 

INT=E (K,  J)  -0.  5*  (U(K,  J)**2+  V(K.  J)**2)  858 

GRMMR=GRMM( K,  J)  859 

P= (GRMMR- 1 . ) *RHO(K,  J)*INT  860 

IF  (RHD(K,  J).NE.  0.  ) CMRCH=SQRT(GRMMR*RBS(P)/RHD(K,  J) ) 861 

IF  (CMRCH.NE.O.)  CMRCH=(U(K,  J)**2+  V(K,  J)**2)**0. 5/CMRCH  862 

P=P/RTM  863 

RMIN=RMIN1  (RMIN,  RHD(K,  J))  864 

RMRX=RMRX  1 (RMRX,  RHD(K,  J))  865 

UMIN=RMIN1  (UMIN,  U(K,  J))  866 

UMRX=RMRX  1 (UMRX.  U(K.J))  867 

VMIN=RMIN1  ( VMIN,  V(K,  J)  ) 868 

VMRX=RMRX 1 ( VMRX,  V(K,  J) ) 869 

PMIN-RMIN1  (PM  IN.  P)  870 

PMRX=RMRX1 (PMRX.  P)  87 1 

CMIN=RMIN1  ( CM  IN.  CMRCH)  872 

CMRX=RMRX1  (CMRX,  CMRCH)  873 

T-INT/CV(K,  J,  0, 0)  874 

TMIN=RMIN1  ( T.  TMIN)  875 

TMRX=RMRX1 ( T.  TMRX)  876 

10  CONTINUE  877 

DO  50  KJ=1,6  878 

IF  (KJ.  EO.  1 . RND.  PM  IN.  EQ.  PMRX)  GO  TO  50  879 

IF  (KJ.  EQ.  2.  RND.  CM  IN.  EO.  CMRX)  GO  TO  50  880 

IF  (KJ.  EQ.  3.  RND.  RMIN.  EQ.  RMRX)  GO  TO  50  88 1 

IF  (KJ.EQ.4.RND.  TMIN.EQ.  TMRX)  GO  TO  50  882 

IF  (KJ.  EQ.  5.  RND.  UMIN.  EQ.  UMRX)  GO  TO  50  883 

IF  (KJ.EQ.6.RND.  VMIN.EQ.  VMRX)  GO  TO  50  884 

WRITE  (6.180)  885 

IF  (KJ.  EQ.  1)  WRITE  (6.190)  PM  IN,  PMRX  886 

IF  (KJ.EQ.2)  WRITE  (6,200)  CM  IN.  CMRX  887 

IF  (KJ.EQ.3)  WRITE  (6.210)  RMIN, RMRX  888 

IF  (KJ.EQ.4)  WRITE  (6,300)  TMIN,  TMRX  889 

IF  (KJ.EQ.5)  WRITE  (6.230)  UMIN. UMRX  890 

IF  (KJ.EQ.6)  WRITE  (6,240)  VMIN,  VMRX  891 

DO  20  NX= 1.1 25  892 

IPLT(NX)=0  893 

20  IF  (NX.  GT.  105.  RND.  NX.  L T.  1 16)  IPL  T(NX)=NX-106  894 

CRLL  PRTPLT  (IPLT.11S)  895 
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JDlFF=l  +JP1/120  896 

DO  40  L=l.  KP2,  JDIFF  897 

K=KP2-L+1  898 

M=0  899 

DO  30  J=1,JP2.  JDIFF  900 

M=M+1  901 

INT=E<K.  J)  -0.  5*(U(K,  J)**2+  V(K,  J)**2)  902 

P=(GRMMR-1.  )*RHO(K,  J)*INT  903 

IF  (RHOCK.  J).NE.  0.  ) CMRCH=SQRT(GRMMR*RBS(P)/RHO(K,J))  904 

IF  (CMRCH.NE.O.)  CMRCH=(U(K,  J)x*2+  V(K,  J)xx2)**0. 5/CMRCH  905 

P=P/RTM  906 

T=INT/CV(K,  J.  0. 0)  907 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXMXXX***M*  908 

C xxxxxxxxxxxxxxxx  INTERPOLRTING  BETWEEN  MRX  RND  MIN  ***************  909 

C XXXXXXXXXXXXXXXXXXXXXXXXXX ****************************************  9 1 0 

IF  (KJ.EQ.l)  IPLT(M)=(P-PMIN)/(PMRX-PMIN)*9.9  911 

IF  (KJ.EQ.2)  IPLT(M)=(CMRCH-CMIN)/(CMRX-CMIN)*9.9  912 

IF  (KJ.EQ.3)  I PL  T(M)=(RHO(K,  J)-RM1N)/(RMRX-RMIN)*9. 9 913 

IF  (KJ.EQ.4)  IPLT(M)=<T-TMIN)/(TMRX-TMIN)*9.9  914 

IF  (KJ.E0.5)  IPLT(M)=(U(K,J)-(JMIN)/(UMRX-UMIN)m9.9  915 

IF  (KJ.EQ.6)  IPLT(M)=(V(K,J)-VMIN)/<VMRX-VMIN)*9.9  916 

KOBL =KP2+1-I0BL  (J)  917 

IF  (K.GE.IOBL(J))  I PL  T(M)=-1  918 

IF  (NVECT.EO.  1)  GO  TO  30  919 

IF  (K.LE.KOBL)  IPLT(M)=-1  920 

30  CONTINUE  921 

N=JP2/JDIFF  922 

CRLL  PRTPLT  (IPLT,N)  923 

40  CONTINUE  924 

50  CONTINUE  925 

IF(EMF.  NE.  2.)  GO  TO  170  926 

JZMIN=10 . **12  927 

JRMIN-10.  **12  928 

JZMRX=~10.  **12  929 

JRMRX=-10.**12  930 

PHI  MI  N=PHI  (1,1)  931 

PH I MRX =PHI (1.1)  932 

5IGMIN=+10.  **6  933 

5IGMRX=-10.  * *6  934 

BETMIN=+10.  **6  935 

BETMRX=-10.**6  936 

BMIN=10.  **7  937 

BMRX=- 10.  **7  938 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxx  939 

c mxxxxxxx  SEEKING  MINIMUM/MRX I MUM  FOR  CURRENTS,  TEMPERRTURE  *******  940 

C xxxxxxxxxxxxxx  HRLL  PRRRMETER,  ELECTRIC  CONDUCTION  RND  ***********  941 

C xxxxxxxxxxxxxx  POTENT  I RL  OR  STRERM  FUNCTION  **********************  942 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxx***********x*  943 

DO  90  K=1,KP2  944 

DO  90  J=1 , JP2  945 

IF  (K.  EO.  1 . OR.  K.  EO.  KP2.  DR.  J.  EQ.  1 . OR.  J.  EQ.  JP2)  GO  TO  80  946 

I=K  947 

IF  (IPTSF.NE.2)  GO  TO  60  948 

DPH I DZ = ( PHI (K,J+1) -PHI ( K , J-l ) )/(Z(J+l )-Z<J-l ) ) 949 

DPHIDR=(PHI<K+1.J)-PHI<K-1,J))/<R(K+1)-R<K-1))  950 

JZ=SIG(I,  J,  0, 0, 1 )*(  (-DPHIDZ+  V(I,  J)*B(I,  J))-BETR(I,  J,  0, 0)*(-DPHIDR-  95 1 

1U(  I,J)*B(I,J))>  952 

JR=S1G( I,  J , 0, 0, 1 )*(BETR( I,  J,  0, 0)*(-DPHIDZ+V<I,  J)*B(I , J))*(-DPHIDR-  953 

W(  I , J)*B(  I , J)  ))  954 

GO  TO  70  955 

60  JZ=(PHl(I+l,J)-PHl(l-l,J))/(2.  *DR(I))  956 

JR=- (PHI <I,J+1> -PHI (I,  J-l) )/<2.  *DZ(J) ) 957 

70  CONTINUE  958 

JZMIN-RMINI  (JZMIN,  JZ)  959 
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JZMRX=RMRX1 ( JZMRX,  JZ)  960 

JRMIN=RMIN1  (JRMIN.  JR)  96 1 

JRMRX=RMRX1 (JRMRX.  JR)  962 

80  SIGMIN=RMIN1  (SIG(K,  J.  0. 0. 0) . SIGN  IN)  963 

SIGMRX=RMRX  1 (SIG (K.  J.  0. 0, 0) . SIGMRX)  964 

BETMIN=RMIN1  (BETR(K.  J.  0, 0) , BETMIN)  965 

BETMRX=RMRX1  (BETR(K,  J,  0. 0) . BETMRX)  966 

IF  (EMF.  EQ.l.)  BP=  (BO(K.  J)**2/PERM+BR(K,  J)**2/PERM+BZ(K.  J)**2/PERM  967 

D/RTM/2.  968 

IF  (EMF.NE.l.)  BP=B<K.J)mm2/PERM/RTM  969 

BMIN-RMIN1  ( BN  IN,  BP)  970 

BMRX=RMRXl  (BMRX,  BP)  97 1 

PHIMIN-RMIN1  (PH  IN  IN.  PHI  (K.  J)  ) 972 

PHIMRX-RMRX1  (PHIMRX.  PHI (K.  J))  973 

90  CONTINUE  974 

DO  160  KJ=7. 12  975 

IF  (KJ.EO.  7.RND.  JZM IN.  EO.  JZMRX)  GO  TO  160  976 

IF  (KJ.E0.8.RND.  JRMIN.  EO.  JRMRX)  GO  TO  160  977 

IF  (KJ.EO.  9. RND.PHIMIN.EO. PHIMRX)  GO  TO  160  978 

IF  (KJ.EO.  10.  RND.SIGMIN.EO.  SIGMRX)  GO  TO  160  979 

IF  (KJ.  EO.  11.  RND.  BETMIN.  EO.  BETMRX)  GO  TO  160  980 

IF  (KJ.  EO.  12.  RND.  BMIN.  EO.  BMRX)  GO  TO  160  98 1 

VRITE  (6.180)  982 

IF  (KJ.EO.  7)  VRITE  (6.250)  JZM  IN.  JZMRX  983 

IF  (KJ.EO.  8)  VRITE  (6.260)  JRMIN.  JRMRX  984 

PVL  TMI=PHIMIN  985 

PVL  TMR=PHIMRX  986 

IF  (IPT5F.EQ.2)  PVLTMI=PVLTMI*10.  **(-8)  987 

IF  (IPT5F.EQ.2)  PVLTMR=PVLTMR*10.  xx(-8)  988 

IF  (KJ.EO.  9)  VRITE  (6.270)  PVLTMI  .PVLTMR  989 

IF  (KJ.EO.  10)  VRITE  (6.280)  SIGN  IN.  SIGMRX  990 

IF  (KJ.EO.  11)  VRITE  (6.290)  BETMIN. BETMRX  991 

IF  (KJ.EO.  12)  VRITE  (6.220)  BMIN. BMRX  992 

DO  100  NX= 1.125  993 

IPL  T(NX)=0  994 

100  IF  (NX.  GT.  105.  RND.  NX.  L T.  1 16)  IPL  T(NX)=NX-106  995 

CRLL  PRTPLT  (IPLT.115)  996 

JDIFF=1  +JP 1/120  997 

DO  150  L=l.  KP2.  JDIFF  998 

K=KP2-L+1  999 

M=0  1000 

DO  140  J=1.JP2.  JDIFF  1001 

M=M+1  1002 

IF  (K.  EO.  1 . OR.  K.  EO.  KP2.  OR.  J.  EO.  1 . OR.  J.  EO.  JP2)  GO  TO  130  1003 

I=K  1004 

IF  (IPTSF.NE.2)  GO  TO  110  1005 

DPHIDZ=  (PHI (K.  J+ 1 ) - PHI (K.  J- 1 ) )/(Z(J+ 1 ) -Z(J- D)  1006 

DPHIDR=  (PHI (K+ 1 . J) -PHI (K- 1 . J) )/(R(K+  l)-R(K-l))  1007 

JZ=SIG(K,  J.  0. 0. 1 )*( (~DPHIDZ+V(K.  J)*B(K,  J))-BETR(K.  J.  0. 0)m(-DPHIDR-  1008 

1U(K.J)*B(K.J)))  1009 

JR=SIG(K.  J.  0. 0. 1 )*(BETR(K.  J.  0. 0)*(-DPHIDZ+  V(K.  J)*B(K.  J)  ) + (-DPHIDR-  1010 

1U(K,J)*B(K,J)))  1011 

GO  TO  120  1012 

110  JZ=(PHI(I+1.J)-PHI(I-1.J))/(2.*DR(I))  1013 

JR=-  (PHI (I.J+1) -PHI ( I , J-l ) )/( 2.  xDZ (J))  1014 

120  CONTINUE  1015 

C *****M*XXXXMX*MXXM*XMXX*XX*X*XXM*XMX*X*M(*M(XXXXXMtXXMX**XXXX*X*XXMiK*  1016 

C xxxxxxxxxxxxxxxx  INTERPOL R T ING  BETVEEN  MRX  RND  MIN  xxxxxxxxxxxxxxx  1017 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1018 

IF  (KJ.  EO.  7)  IPL  T(M) = (JZ-JZMIN)/(JZMRX-JZMIN)»9. 9 1019 

IF  (KJ.EO.  8)  IPL  T(M)=(  JR- JRMIN)/(  JRMRX- JRMIN)m9.  9 1020 

130  IF  (KJ.EO.  9)  IPLT(M)=(PHI  (K.  J)-PHIMIN)/(PHIMRX-PHIMIN)*9. 9 1021 

IF  (KJ.  EO.  10)  IPL  T(M)=(SIG(K.  J.  0. 0. 0)  -SIGMIN)/(SIGMRX-SIGMIN)*9. 9 1 022 

IF  (KJ.  EQ.lt)  IPL  T(M)=(BETR(K.  J.  0 . 0) -BE TMIN)/( BE TMRX-BE TMI N)m9.  9 1 023 
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IF  (EMF.  EQ.l.)  BP=  (BD(K,  J)«*2/PERM+BR(K.  J)**2/PERM+BZ(K.  J)**2/PERM  1 024 

D/RTM/2.  1025 

IF  (EMF.NE.  1.  ) BP=B(K.  J)**2/PERM/RTM  1026 

IF  (KJ.E0.12)  IPLT(M)=(BP-BMIN)/<BMRX-BMIN)*9.9  1027 

IF  (KJ.  EO.  9.  OR.  KJ.  EQ.  12)  GO  TO  140  1028 

IF  (K.  EQ.  1 . DR.  K.  EQ.  KP2)  GO  TO  150  1 029 

KOBL =KP2+ 1 - IOBL ( J)  1030 

IF  ( K.LE.KOBL ) IPLT(M)=-1  1031 

IF  (NVECT.EQ.l)  GO  TO  140  1032 

IF  (K.GE.IOBL(J))  IPLT(M)=-1  1033 

140  CONTINUE  1034 

N=JP2/JDIFF  1035 

CRLL  PRTPL  T (IPL  T.  N)  1 036 

150  CONTINUE  1037 

160  CONTINUE  1038 

170  CONTINUE  1039 

RETURN  1040 

1041 

1042 

1043 

180  FORMRT  (/////)  1044 

190  FORMRT  (20X.  12H  PRESSURE  . 5X,  4H  MIN.  IX.  El 2.  4. 5X . 4HMRX  . El 2.  4. 10X  1 045 

1 . 1 1HRTMOSPHERES.  //)  1046 

200  FORMRT  (20X.  12H  MRCH  NO  . 5X.  4H  MIN.  IX.  El 2.  4.  SX . 4HMRX  . El 2.  4.1  OX  1047 

1.1 1H  DMLS  .//)  1048 

210  FORMRT  (20X.  12H  DENS  I TY  . 5X.  4H  MIN.  IX.  El  2.  4. 5X.  4HMRX  . El  2.  4. 10X  1 049 

1.1 1H  GM/CM3  ,//)  1050 

220  FORMRT  (20X.  12H  MRGN  PRESS  . 5X.  4H  MIN.  IX.  El 2.  4. 5X.  4HMRX  . El 2.  4. 10X  105 1 

1 . 1 1HRTMOSPHERES.  //)  1 052 

230  FORMRT  (20X.  12HRXIRL  - VELOC  . 5X.  4H  MIN . IX.  El 2.  4. 5X.  4HMRX  . El 2.  4. 10X  1 053 

1.1 1H  CM/SEC  .//)  1054 

240  FORMRT  ( 20X . 12HRRDIRL  - VELOC.  SX.  4H  MIN.  IX.  El 2.  4. 5X.  4HMRX  . El 2.  4. 10X  1 055 

1.1 1H  CM/SEC  .//)  1056 

250  FORMRT  (20X.  12H  CURRENT  - Z.  5X,  4H  MIN . IX,  El 2.  4. 5X.  4HMRX  . El 2.  4. 10X  1057 

1. 11HRBCOUL/SEC  .//)  1058 

260  FORMRT  ( 20X . 12H  CURRENT  - R.  5X.  4H  MIN,  IX.  El 2.  4.  SX.  4HMRX  . El 2.  4. 10X  1 059 

1 , 1 1HRBCOUL/SEC  .//)  1060 

270  FORMRT  (20X.  12H  PHI  OR  PS  I . 5X.  4H  MIN.  IX.  El  2.  4. 5X.  4HMRX  , El  2.  4. 10X  106 1 

1.1 1H  ,//)  1062 

280  FORMRT  (20X,  12HC0NDUCTI VI  TY,  5X,  4H  MIN.  IX.  El 2.  4. 5X.  4HMRX  . El 2.  4. 10X  1 063 

1.  UHMHO/M  Ell  ,//)  1064 

290  FORMRT  (20X.  12HHRLL  PRRRMTR.  5X,  4H  MIN . IX.  El 2.  4. 5X,  4HMRX  , El 2.  4. 10X  1065 

1.1 1H  DMLS  .//)  1066 

300  FORMRT  (20X.  12H  TEMPERRTURE.  5X.  4H  MIN.  IX.  El 2.  4. 5X.  4HMRX  . E12.  4. 10X  1067 

1.1 1H  DEG  K .//)  1068 

END  1069 

SUBROUTINE  PR TPL  T (R.N)  1070 

1071 

1072 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1073 

DIGITRL  PRINT  (SHRDE)  ROUTINE  1074 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1075 

1076 

1077 

IMPLICIT  INTEGER  (R-Z)  1078 

DIMENSION  R( 132),  B(132).  SPECCH<3)  1079 

DRTR  ONE/1H  V.  TUO/1H//.  THREE/  1HX/.  FOUR/ 1 HO/.  FI  VE/1HH/,  SIX/lHo/,  SEV  1 080 

1EN/1H-/.  BLRNK/1H  /.  SPECCH/1HM,  1HV,  1HI/  1 08 1 

DRTR  DOT/1  H./  1082 

1083 

1084 

DO  10  1=1.132  1085 

10  B( I )=BLRNK  1086 

DO  20  1=1. N 1087 
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IF  (R(I).EQ.  -1)  B(I)=DOT  1088 

IF  (R(I).EQ.l)  B(I)=ONE  1089 

IF  (R( I).  EO.  2)  B(I)=TWO  1090 

IF  (R(I).EO.  3)  B(I)=THREE  1091 

IF  (R(I).  GE.  4)  B< I )=FDUR  1092 

20  CONTINUE  1093 

WRITE  (6.130)  B 1094 

DO  30  1=1.132  1095 

30  B(I)=BLRNK  1096 

DO  40  1=1  .N  1097 

IF  <R(I).LT.4)  GO  TO  40  1098 

IF  (R( I).EQ.  4)  B(I)=SEVEN  1099 

IF  (R( I).E0.5)  B(I)=TWO  1100 

IF  <R( I).  GE.  6)  B< I )=THREE  1101 

FLRG=1  1102 

40  CONTINUE  1103 

IF  (FLRG.EO.O)  GO  TO  120  1104 

WRITE  (6.140)  B 1105 

FLRG=0  1106 

DO  50  1=1.132  1107 

50  B(I)=BLRNK  1108 

DO  60  1=1,  N 1109 

IF  (R(  I).  LT.  7)  GO  TO  60  1110 

IF  (R(I).EQ.  7)  B( I )=SEVEN  1111 

IF  (R( I).  GE.8)  B(I)=FIVE  1112 

FLRG=1  1113 

60  CONTINUE  1114 

IF  (FLRG.EO.O)  GO  TO  120  1115 

WRITE  (6.140)  B 1116 

FLRG=0  1117 

DO  70  1=1.132  1118 

70  B( I )=BLRNK  1119 

DO  80  1=1.  N 1120 

IF  (R(I).LT.8)  GO  TO  80  1121 

IF  (R( D.EQ.  8)  B(I)=THREE  1122 

IF  (R(I).  EO.  9)  B(I)=5IX  1123 

FLRG=1  1124 

80  CONTINUE  1125 

IF  (FLRG.EO.O)  GO  TO  120  1126 

WRITE  (6.140)  B 1127 

FLRG=0  1128 

DO  90  1=1.132  1129 

90  B(I)=BLRNK  1130 

DO  110  1=1.3  1131 

DO  100  J=1.N  1132 

IF  (R(J).NE.  9)  GO  TO  100  1133 

B(J)  =5PE CCH( I ) 1134 

FLRG=1  1135 

100  CONTINUE  1136 

IF  (FLRG.EO.O)  GO  TO  120  1137 

WRITE  (6.140)  B 1138 

110  CONTINUE  1139 

120  RETURN  1140 

1141 

1142 

1143 

130  FORMRT  (1H  . 132R1 ) 1144 

1 40  FORMRT  (1H+,  132R1 ) 1145 

END  1146 

SUBROUTINE  GEOM  1147 

1148 

1149 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 1 50 

SETS  UP  GRID  GEOMETRY  BY  SPRCING  CELLS  RT  INTERVRLS  OF  (DR.DZ)  1151 
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C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 152 

C 1153 

C 1154 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 . JPl , KP2.  JP2  1 1 55 

COMMDN/CGRID/R  (45) . RD(45) , Z(225) , DR(45) . DZ(225) . XD(45) , ZMIN.  RMIN,  D 1156 

IZO.  DRO.  IGRRPHC 225) . NBOUND  1157 

COMMON  /CBOUND/  DRNGLE (225) . I0BK(225) , IOBL  (225) . ISYM<4) . IRXl,  IDBO  1 1 58 

RERLxd  R.RD  1159 

C 1160 

C 1161 

DZ(l)=DZO  1162 

DR(l)=DRO  1163 

Z(l)  =ZMIN+DZ  ( 1 )/2.  1 1 64 

R(  1) =RMIN+DR( 1 )/2.  1165 

IF  (IRXI.EO.O)  R(1)=R(1  >+100000.  1166 

DO  10  1=2,  KP2  1167 

DR( I )=DRO  1168 

10  R(I)=R(I-l)+(DR(I)+DR(I-l))/2.  1169 

DO  20  J=2,JP2  1170 

DZ(J)=DZO  1171 

20  Z(J)=Z(J-l)+(DZ(J)+DZ(J-l))/2.  1172 

RETURN  1173 

END  1174 

SUBROUTINE  BOUND  1175 

C 1176 

C 1177 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1178 

C BDUNDRRY  VRLUES  RSSIGNED  RT  BOTTOM,  LEFT,  TOP  RND  RIGHT  FRCES  1179 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 180 

C 1181 

C 1182 

COMMON  /CRRRRY/  RHO(45. 225),  U(45, 225),  V(45.225),E(45,225),PHI<45,  1183 

1225),BD(1,1).BR(1,1),BZ(1,1),DE(1,1)  1184 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 , JPl , KP2,  JP2  1 1 85 

COMMON  /CBOUND/  DRNGLE (225) , IDBK(225) . IDBL  (225) , ISYM(4),  IRXl,  IDBO  1 1 86 

COMMON  /GRRVTY/  GC,  GR.GZ  11 87 

COMMON  /CTIME/  TIME.  DT,  DTT,  STRB,  MINDT.  MRXDT,  NCYCLE,  NMRX  1 1 88 

COMMON/CGRID/R(  45) , RD(45) , Z(225) . DR  (45) , DZ(225) , XD(45) , ZMIN,  RMIN,  D 1189 

1 ZO,  DRO.  IGRRPH( 225) , NBOUND  1190 

COMMON  /CCRLC/  BL . EMF,  MCRLC,  NMRGN,  NTHRM.  I POT.  IDFN,  IPTSF  1191 

COMMON  /CINI T/  RHOO.  VZ.  VR,  BO.  BRO,  BZO.  EO.  PH  10.  PERMO.  VELOC.  RRFV,  PERM  1 1 92 

l.NVECT.NPDIM  1193 

COMMON/CMHD/I NSJ( 225 ) . DVOL  T.  BRSEP.  DPOT,  SPRCE.  SPINSL . JPLMIN . JPLMRX  1194 

COMMON/CMR TRX/  RC0EF(225) . BC0EF(225) . CC0EF(225) , DCDEF(225) . SUB(225  1 1 95 

1 ) . DIRG(225) . SUP (225) . CONST (225)  1 1 96 

RERL *8  R.  RD . RR,  RDIS T.RRG  1197 

DRTR  NO/O/  1198 

1199 

1200 

ISYM  = 1 (BOTTOM),  = 2 (LEFT),  = 3 (TOP).  = 4 (RIGHT)  1201 

IF(ISYM(  ) = +1  = TRRNSMISSI VE.  = -1  = REFLECTIVE  1202 

IF(ISYM(  ) = +2  = FIRST  DERIVRTIVES  OF  RHO.U.  V RND  P RRE  CONSTRNT  1203 

KP3=KMRX+3  1204 

JP3=JMRX+3  1205 

C xox##xxxx()tn#xxxx**x**x*x**M*x#XM*****x**xmx***MKm*XMM*xmMm*K*t*Mtx*Mm*  1 206 

C 1207 

IF  (ISYM(l).EO.O)  GO  TO  20  1208 

IP=ISYM(  I )/IRBS(  ISYM(l))  1209 

DO  10  J=1  • JP2  1210 

RH0(l.J)=RH0(2,J)+(RH0(2,J)-RH0(3.J))x(IRBS(ISYM(l))-l)  1211 

U(l . J)=+U(2,  J)  + (U(2.  J)  -U(3,  J))*(IRBS(ISYM(1))-1)  1212 

V(1,J)=V(2.J)*IP+(V(2.J)-V(3.J))*(IRBS(1SYM(1))-1)  1213 

E(l.J)  =E(2.  J) + (E(2.  J)  - E(3 . J)  )*(IRBS(ISYM(1  ))-l)  1214 

E(l,  J)=E(1.  J)-(U(2.  J)**2+  V(2,  J)mm2)/2.  +(U(l.J)m*2+V(UJ)m*2)/2,  -((  1215 
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1U(2,  J)**2+V<2'  J>**2)/2. -(U(3.J)**2+V(3.  J)**2)/2.  )*( IRBS( ISYM(l))-l  1216 

2)  1217 

C 1218 

IF  (EMF.NE.l.)  GO  TO  10  1219 

BO(I,  J)=BD<2.  J)  + (B(2,  J) -B(3.  J) )*( IRBS( ISYM( 1 ) )-l)  1220 

BR(1 , J)=BR(2,  J)+(BR(2,  J) -BR(3.  J) )»( IRBS( I5YM(  1 ) )-l ) 1 22 1 

BZ(l.J)=BZ(2.  J)+(BZ(2.  J)-BZ(3,  J))*(IRBS<ISYM<1))-1)  1222 

10  CONTINUE  1223 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXX  1224 

20  IF  (ISYM(2).E0.  0)  GO  TO  40  1225 

IP=I5YM(2)/IRB5(  I5YM(2))  1226 

DO  30  K=1.HP2  1227 

RHO(K.  1)=RH0(K.2)+(RH0(K.2)-RH0(K'  3) )*( IRB5( I5YM(2))-1 ) 1228 

U(K,  1)=U(K,2)*IP+(U(K.2)-U(K'3))*(1RBS(ISYM(2))-1)  1229 

V(K,  1 )=+  V(K.  2)  + ( V(K.  2) - V(K.  3))*( IRB5( ISYM<2) )-l)  1230 

E(K.  1 ) =E(K.  2)  + (E(K,  2) -E(K.  3) ) *( IRBS( ISYM(2) )-l)  1231 

E(K.  1)=E(K.  1)-(U(K. 2)*x2+  V(K. 2)**2)/2.  +(U(K.  D*x2+V(K,  l)**2)/2. -((  1232 

W(K,2)**2+V(K.2)»*2)/2. -(U(K. 3)**2+V(K.  3)**2)/2.  )*<IRBS<ISYM(D)-1  1233 

2)  1234 

C 1235 

IF  (EMF.NE.l.)  GO  TO  30  1236 

BO(K,  l ) =BO (K,2)  + (BO (K.  2) -BO(R.  3) )*( IRBS ( 1 5YM( 2 ))-l)  1237 

BR(K,  1 ) =BR (K.  2)+ (BR (K.  2) -BR(K.  3))*(IRBS(ISYM(2))-1)  1238 

BZ(K,  1)=BZ(K,2)+(BZ(K.2)-BZ(K,  3))*(IRBS(ISYM(2))-1)  1239 

30  CONTINUE  1240 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1241 

C 1242 

40  IF  ( I5YM(3).E0. 0)  GO  TO  60  1243 

IP=I5YM(3)/IRB5(  ISYM(3))  1244 

DO  50  J=1.JP2  1245 

RH0(KP2.  J)  =RH0(KP1 . J)  + (RHD(KP1 . J) -RHO(KMRX.  J))*(IRBS(ISYM(3))-1 ) 1246 

U(KP2,  J)  =U(KP1 . J)  + (U(KP1 . J) -U(KMRX,  J))*(IRBS(ISYM(3))-1)  1247 

V(KP2. J) =V(KP1 . J)*IP+ ( V(KP1 . J) - V(KMRX* J))*(IRBS(ISYM(3))-1)  1248 

E (KP2.  J)  =E( KPI ,J)+(E( HP l * J) -E (KMRX,  J))*(IRBS(1SYM(3))-1)  1249 

E(KP2.  J)=E(RP2,  J)-(U(KP1 . J)**2+  V(KPl . J)**2)/2.  + (U(KP2.  J)*x2+  V(KP2,  1 250 

lJ)**2)/2.  - ( (U(KP1 . J)**2+  V(KP1 , J)mx2)/2.  - (U(KMRX,  J)**2+  V(KMRX.  J)**2  1 25 1 

2)/2.)*(IRBS(ISYM(l))-l)  1252 

C 1253 

IF  (EMF.NE.  1.)  GO  TO  50  1254 

B0(KP2.  J)=B0(KP1,J)  + (BD(KP1,J)-B0(KMRX,  J))m(IRB5(ISYM(3))-l)  1255 

BR(KP2.  J)=BR(KP1 , J)+(BR(KPl , J) -BR(KMRX.  J))®(IRBS(ISYM(3))-1)  1256 

BZ(KP2 . J)=BZ ( KPI  • J)  + (BZ ( KPI  * J) -BZ (KMRX , J))*(IRBS(ISYM(3))-1)  1257 

50  CONTINUE  1258 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1259 

C 1260 

60  IF  ( ISYM(4).EO.  0)  GO  TO  80  1261 

IP=ISYM(4)/IRBS(ISYM(4))  1262 

DO  70  K=1,KP2  1263 

RHO(K.  JP2)=RHD(K.  JP1)  + (RHD(K,  JP1)-RH0(K.  JMRX))m(IRB5(ISYM(4))~l)  1264 

U(K,  JP2)=U(K.  JP1)*IP+(U(K.  JP1)-U(K , JMRX))*(IRBS(ISYM(4))-1)  1265 

V(K.  JP2)=V(K,  JPl )+(V(K.  JP1)-V(K,  JMRX))m(IRBS(I5YM(4))-l ) 1266 

E(K,  JP2)=E(K.  JP1)+(E(K,  JP1)-E(K,  JMRX))m(lRB5(15YM(4))-l)  1267 

E(K,  JP2)=E(K,  JP2)-(U(K,  JPl  )**2+  V(K,  JPl  )mm2)/2.  + (U(K.  JP2)**2+  V(K,  JP  1 268 

12)**2)/2.  - ( (U(K.  JPl  >**2+  V(K,  JPl  )mx2)/2.  - (U(H.  JMRX)**2+  V(K.  JMRX)mm2  1 269 

2)/2.)m(IRBS(lSYM(l))-l ) 1270 

C 1271 

IF  (EMF.NE.l.)  GO  TO  70  1272 

BO(K.  JP2)=B0(K.  JPl )+(BO(K,  JP1)-B0(K,  JMRX))*(IRBS(ISYM(4))-1)  1273 

BR(K.  JP2)=BR(K.  JP1)+(BR(K.  JP1)-BR(K,  JMRX) )*( IRBS( ISYM(4))-1 ) 1 274 

BZ(K.  JP2)=BZ(K,  JP1)+(BZ(K»  JP1)-BZ(M,  JMRX))*(IRBS(ISYM(4))-1)  1275 

70  CONTINUE  1276 

BO  CONTINUE  1277 

1278 

OBLIQUE  BOUNDARY  CONDITIONS  1279 
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C 1280 

IF  (IOBO.EO.O)  GO  TO  180  1281 

JBDRL=1  1282 

JBDRH=JP2  1283 

NO=NO+l  1284 

KT=0  1285 

DO  1 70  J=JBDRL , JBDRH  1 286 

IK=IRBS( IDBQ)  1287 

IF  (Z(J).LT.XD(l).  OR.  Z(J) . GT.  XD(  IK)  ) GO  TO  170  1288 

DO  160  MIT=1.NVECT  1289 

IV=0  1290 

KMl=KP2/2  1291 

KM2=KM1+1  1292 

IF  ( NVECT.EQ.l ) KM1=KP2  1293 

DO  150  N=1.KM1  1294 

IF  (MIT.EO.  1)  K=N+KM1  1295 

IF  (MIT.EO.  2)  K=KM2-N  1296 

IF  (NVECT.EQ.l)  K=N  1297 

I=K-1  1298 

IF  (NO-1)  90,90.100  1299 

90  CRLL  OBLQUE  ( J.  RD 1 5 T,  DEL  TR)  1300 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXmxmXMmmmMmmMXXmMmmmMmxm  1301 

C RDIST  SHOULD  BE  DOUBLE  PRECISION  ON  IBM  MRCHINES  1302 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXMXXXXXXXXXXX  1 303 

RR=R(K)  1304 

IF  (RDIST-RR)  110.110.140  1305 

100  IF  (MI  T.  EO.  1 . RND.  K.  GE.  IOBL  (J) ) GO  TO  110  1 306 

1 0=KP2+ 1 -I OBL  ( J)  1307 

IF  (MI  T.  EO.  2.  RND.  K.  LE.  10)  GO  TO  110  1 308 

GO  TO  140  1309 

110  IV=IV+1  1310 

IF  (IV.  GT.l)  GO  TO  130  1311 

IF  (NO.  GT.  1. RND.  MIT.EO.  1)  DEL  TR=DRNGLE ( J)  1312 

IF  (NO.  GT.l.  RND.  MIT.EO.  2)  DEL  TR=-DRNGLE ( J)  1313 

DEL  TX=DEL  TR  1314 

L=1  1315 

IF  (MIT.EO. 2)  L=-l  1316 

THETR=0.  1317 

NN-K-L  1318 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXX  1319 

C xxxxxxxxxxxxxxxxxxxxxx  SETTING  V*N  CONDITIONS  xxxxxxxxxxxxxxxxxxxx  1320 

C XXXXXXXXXXXXXXXXXXXXXXXi KXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXK  1321 

IF  ( V(NN.  J) . NE.  0.  ) THETR=V(NN.  J)/RBS(  V(NN.  J)  )m2.  m3. 1416/360.  *90.  1 322 

IF  (U(NN.J).NE.O.)  THE TR=R TRN( V ( NN,  J)/U( NN.  J) ) 1323 

IF  ( THETR.  GT.O. . RND.  U(NN,  J).LT.O.  ) THETR=THETR+3. 1416  1324 

IF  (THETR.  LT.O.  .RND.  U(NN,J).LT.O.  ) THE  TR=  THE  TR+3. 1416  1325 

VC=(U(K-L . J)xx2+  V(K-L . J)xx2)xx0. 5 1 326 

VX=IOBQ/I RBS ( IOBQ) mCOS ( THETR+DEL  TX)*VC  1 327 

VY=-SIN(  THETR+DEL  TX)mVC  1328 

U(K.  J)=VY*SIN(DEL  TX)  + VX*CDS(DEL  TX)  1 329 

V(K,  J)=VY*COS(DEL  TX)-VXmSIN(DEL  TX)  1 330 

RHO  (K.J)  =RHO( K-L . J)  1331 

E(K,  J)=E (K-L.J)  1332 

IF  (EMF.NE.l.)  GO  TO  120  1333 

BO(K.  J)  =BU(K-L  .J)  1334 

BR(K,  J)  =BR(K-L  .J)  1335 

BZ(K,  J)=BZ(K-L . J)  1 336 

120  CONTINUE  1337 

IF  (NO.  EO.  2.  RND.  I POT.  NE.  0)  CRLL  PLRTE  (J.  MI  T ) 1 338 

IF  (NO.  GT.l)  GO  TO  140  1339 

JLEFT=JBDRL+1  1340 

JRIGHT = JBDRH- 1 1341 

IDBK(J)=K+1  1342 

IOBL  (J)=M  1343 
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IGRRPH(J)=K  1344 

DRNGLE ( J)=DEL  TR  1345 

GO  TO  140  1346 

130  RHO(K,J)=RHOO  1347 

U(K.J)=VZ  1348 

V(K.J)=VR  1349 

E(K,  J)=E0  1350 

IF  (EMF.NE.l.)  GO  TO  140  1351 

BO(K,  J)  =B0  1352 

BR(K,  J)=BRO  1353 

BZ(K,  J)=BZO  1354 

140  CONTINUE  1355 

150  CONTINUE  1356 

160  CONTINUE  1357 

170  CONTINUE  1358 

180  CRLL  SPEC  1359 

RETURN  1360 

END  1361 

SUBROUTINE  OBL  QUE  (J.  RDIS  T.  DEL  TR)  1 362 

C 1363 

C 1364 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 365 

C OBLIQUE  BOUNDRRY  COORD I NOTES  1366 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 367 

c 1368 

C 1369 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 , JP1 . KP2,  JP2  1 370 

COMMON  /CBOUND/  DRNGLE  (225) , I0BKC225) . I OBL  (225) , ISYM(4),  IRXI,  IOBQ  1 37 1 

COMMON/CGR I D/R  ( 45) . RD(45) , Z(225) . DR  (45) . DZ(225) , XD(45) , ZMIN,  RMIN,  D 1 372 

RERLmB  R.  RD.  ROIST,  YDIST  1 373 

DRTR  IKT/O/  1374 

1375 

1376 

IOB=IRBS ( IOBQ)  1377 

IKT=IKT+1  1378 

IF  (IKT.GT.l)  GO  TO  20  1379 

DO  10  JM=l,IOB  1380 

10  RD ( JM) =RD ( JM) + 1 OOOOO.  m(l-IRXI)  1 38 1 

20  CONTINUE  1382 

JIP=1  1383 

MMRX=IDB-1  1384 

DO  30  M=2.MMRX  1385 

IF  (Z(J).GT.XD(M))  JIP=M  1386 

30  CONTINUE  1387 

YDIST=RD(JIP)  + (Z(J)  -XD(JIP)  )/(XD(JlP+l)  -XD(JIP)  )*(RD(JIP+1 ) -RD(JIP  1 388 

D)  1389 

RRG=(RD(JIP+ 1 ) -RD(JIP)  )/(XD(JIP+ 1 ) -XD(JIP)  ) 1390 

DEL  TX=-RTRN(RRG)  1391 

DEL  TR=DEL  TX  1392 

RDIST=YDIST  1393 

RETURN  1394 

END  1395 

SUBROUTINE  PLRTE  (J, MIT)  1396 

C 1397 

C 1398 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 399 

C DEFINES  ELECTRODE/ INSULRTOR  PRIRS  1400 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1401 

C 1402 

C 1403 

COMMON/CMHD/I NSJ( 225) , DVOL  T,  BRSEP,  DPOT,  SPRCE.  SPINSL , JPLMIN,  JPLMRX  1 404 

DRTR  IKT,KT/0,1/  1405 

C 1406 

C 1407 
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IN5J(J)=-1  1408 

IF  (J.LT.  JPLMIN.  OR.  J.  GT.  JPLMRX)  RETURN  1409 

ISPRCE =SPRCE + 1 . 1410 

IN5UL =SPRCE+SPINSL  1411 

IF  (MIT.  EO.  1)  1KT=IKT+1  1412 

IF  (IKT.  EQ.  ISPRCE.  RND.  MI  T.  EO.  1 ) RT=KT+1  1413 

IF  ( IKT.  LT.  ISPRCE)  INSJ(J)=KT  1414 

IF  ( IKT.  GE.  ISPRCE)  INSJ(J)=-1  1415 

IF  ( IKT.  EO.  INSUL . RND.  MI  T.  EO.  2)  IKT=0  1416 

RETURN  1417 

END  1418 

SUBROUTINE  BNDPOT  (I,  J)  1419 

1420 

1421 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1422 

DEFINES  ELECTRICRL  BDUNDRRY  CONDITIONS  1423 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1424 

1425 

1426 

COMMON  /CRRRRY/  RHQ(45. 225) , U<45. 225) , V(45, 225) , E(45, 225) , PHI  <45,  1 427 

1225), B0(1, 1 ) , BR(  1 , 1 ),BZ(  1 , 1 ), DE(  1 , 1 ) 1428 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 , JP1 , KP2,  JP2  1 429 

COMMON  /CBOUND/  DRNGLE (225),  IDBK(225),  IOBL  (225),  ISYM(4),  IRXI,  IOBQ  1430 

COMMON  /GRR/TY/  GC,GR,GZ  1431 

COMMON  /CTIME/  TIME.DT,  DTT,  STRB,  MINOT,  MRXDT,  NCYCLE,  NMRX  1432 

C0MM0N/CGRID/R(  45) , RD(45) , Z(225) , DR  (45) , DZ(225) , XD<45) , ZMIN,  RMIN,  D 1433 

1 ZO.  DRO,  IGRRPH(225) , NBOUND  1434 

COMMON  /CCRLC/  BL , EMF,  MCRLC,  NMRGN,  NTHRM,  I POT,  IDFN,  IPTSF  1 435 

COMMON  /CINI T/  RHOO,  YZ,  VR,  BO,  BRO,  BZO,  EO,  PH  10,  PERMO,  VELOC,  RRFV,  PERM  1 436 

1 ,NVECT  ,NPDIM  1437 

COMMON/CMHD/INSJ ( 225 ) , DVOL  T,  BRSEP,  DPOT,  SPRCE,  SPINSL , JPLMIN,  JPLMRX  1 4 38 

COMMON/CMR TRX/  RC0EF(225),BCDEF(225).  CC0EF(225),0C0EF(225),SUB(225  1 439 

1 ).D I RG( 225),  SUP (225),  CONST (225)  1 440 

COMMON/E TR0DE/RN0DE( 225) , CRTH0D(225)  1441 

RERL *8  R.RD  1442 

C 1443 

C 1444 

BET=10.  1445 

IF  (J.EQ.2)  INSLN0=0  1446 

I I =KP2- IOBL (J)+2  1447 

I 2= IOBL  (J)-l  1448 

K=I-1  1449 

IF  ( I.  EQ.  12)  K=I+1  1450 

IN=1  1451 

IF  ( I.  EQ.  12)  IN=2  1452 

L=INSJ(J)  1453 

M=INSJ(J-1 ) 1454 

IF  (INSJ(J).GT.O)  I NSL  NO- 1 NS  J ( J)  1455 

IF  ( I.  EQ.  II.  RND.  INSJ(J)  .EQ.l.  RND.  INSJ(J-1  ).LT.O)  RNDDE(L  )=0.  1 456 

IF  (I.  EQ.  12.  RND.  INSJ(J).  EO.  l.RND.  INSJ(J-1).L  T.  0)  CRTH0D(L)=0.  1 457 

IF  (I.EQ.  II.  RND.  INSJ(J).GT.  l.RND.  INSJ(J-l).LT.O)  RNDDE  (L)  =RNDDE  (L-  1458 

11)  1459 

IF  (I.  EO.  12.  RND.  INSJ(J).  GT.  1.  RND.  INSJ(J-1).LT.  0)  CR  THOD  (L)  =CR  THOD  ( 1460 

1L-1)  1461 

IF  (I.  EO.  11 . RND.  INSJ(J) . GT.  0)  RNODE (L)  =RN0DE (L) -CUR( I , J)*DZ(J)  1 462 

IF  ( I.EQ.  I2.RND.  INSJ(J).GT.O ) CRTHOD<L)=CRTHOD(L)-CUR(I.J)*DZ<J)  1463 

C IF(INSJ(J).GT.O)  yRITE(6, 1250)  INSJ(J),J,  I,  II,  12, L, RNDDE (L),CRTH0  1464 

C 1D(L)  1465 

IF  (I.EQ.  I l.RND.  INSJ(J).GT.O)  PHI  (K.  J)  =PHI  (K+ 1 . J)  -BE  TR  (K.  J,  1,0)  »DR  1466 

1 (K)/DZ(J)x(PHI (K+l,  J+l) -PHI (K+1,J-1) )/2.  1 467 

IF  ( I.  EQ.  12.  RND,  INSJ( J).  GT.  0)  PHI (K,  J)=PHI(K-1,J)+BETR(K,  J,  ~l,0)xD  1468 

1R( K)/DZ (J)x( PHI (K-l,  J+l) -PHI (K-LJ-l) )/2.  1 469 

IF  (I.  EQ.  I l.RND.  INSJ(J).  GT.  0.  RND.  BET.  GT.  2. 5)  PHI  (K,  J)=(+BETR(K,  J,  0 1 470 

l,0)*DR0O/DZ<J)*<-4.  kPHI(K,  J-D+PHKK,  J-2))-4.  *PHKK+l.J)+PHI(K+2,  1471 
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2J))/(3.  *(-l.  -BETA(K,  J,  0 . 0)*DR<K)/DZ<J)>)  1472 

IF  (I.  EQ.  12.  AND.  INSJ(J).  GT.  0.  AND.  BET.  GT.  2.  5)  PHI  (K.  J)=(-BETA(K,  J.  0 1 473 

1.0)*DR(K)/DZ(J)*<-4.  rnPHKK.  J+D+PHKK.  J+2))+4.  *PHI(K-LJ)-PHI(K-2.  1474 

2J>  )/(3.  *<l . +BETA(K.  J . 0. 0)*DR0O/DZ(J)  ))  1475 

IF  (I.  EQ.  I LAND.  INSJ(J).  EQ.  -LAND.  INSLND.  EQ.  0)  PHI(K.  J)=0.  1 476 

IF  ( I.  EQ.  I LAND.  IN5J(J).EQ.  -LAND.  INSLND.  NE.O)  PHI  (K.J)  = ANODE  ( I N5L  1477 

1ND)  1478 

IF  (I.  EQ.  12.  AND.  INSJ(J).EQ.  -LAND.  INSLND.  EQ.  0)  PHI(K , J)=0.  1 479 

IF  (I.  EQ.  12.  AND.  INSJ(J).  EQ.  -LAND.  INSLND.  NE.  0)  PHKK,  J)=CATHDD(  INS  1480 

1LNO)  1481 

IF  (J.EQ.JPl)  PHI  (I.  JP2)  =PHI  (Il-LJPl)  1482 

IF  ( I.  EQ.  ID  PHI(Il-2.J)=2.*PHI(ll-LJ)-PHl<Il.J)  1483 

IF  (I.  EQ.  12)  PHI <12+2.  J)=2.  *PHI(12+LJ)-PHI<I2,  J)  1 484 

RETURN  1485 

C 1486 

END  1487 

SUBROUTINE  SPEC  1488 

C 1489 

C 1490 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1491 

C ASSIGNS  SPECIAL  PARAMETER  VALUES  EVERY  CYCLE  1492 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 493 

C 1494 

C 1495 

COMMON  /CARRAY/  RHD(45. 225) . U(45. 225) . V(45. 225) . E(45. 225) . PHI  (45.  1 4 96 

1225). BD(1.  1).BR(1.1),BZ(1.  1).DE<1. 1)  1497 

COMMON  /CMESH/  KMAX.  UMAX.  KP1 , JP1 . KP2.  JP2  1 4 98 

COMMON  /CBOUNO/  DANGLE (225).  IDBK(225).  IOBL  (225).  ISYM(4).  IAXI.  IDBQ  1499 

COMMON  /GRAVTY/  GC.  GR.  GZ  1 500 

COMMON  /CTIME/  TIME.DT.  DTT.  STAB.  MINOT.  MAXDT.  NCYCLE.  NMAX  1 50 1 

COMMON/CGRID/R(  45) . RD(45) . Z(225) . DR  (45) . DZ(225) . XD(45) . ZMIN.  RMIN.  D 1 502 

1ZO.  DRO.  I GRAPH  (225) . NBOUND  1 503 

COMMON  /CCALC/  BL . EMF.  MCALC.  NMAGN.  NTHRM.  I POT.  IDFN.  IPTSF  1 504 

COMMON  /CINI T/  RHDO.  VZ.  VR.  BO.  BRO.  BZO.  ED.  PH  10.  PERMO.  VELOC . ARFV.  PERM  1 505 

l.NVECT.NPDIM  1506 

COMMON/CMHD/INSJ( 225) . DVOL  T.  BASEP.  DPOT.  SPACE.  SPINSL . JPLMIN.  JPLMAX  1 507 

COMMON/CMA TRX/  AC0EF(225).BCDEF(225).  CC0EF(225).DC0EF(225).  SUB(225  1 508 

1 ),D I AG( 225).  SUP (225),  C0NST(225)  1509 

COMMDN/E TRDDE/ANODE( 225) . CATHDD(225)  1510 

REAL*8  R.RO  1511 

DATA  IKT/O / 1512 

C 1513 

C 1514 

IKT=IKT+1  1515 

IF  (IKT.GT.l)  GO  TO  20  1516 

DO  10  J=1 . JP2  1517 

ANODE (J)=0.  1518 

10  CATH0D(J)=0.  1519 

20  CONTINUE  1520 

RETURN  1521 

END  1522 

SUBROUTINE  TMESTP  1523 

C 1524 

C 1525 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 526 

C COMPUTES  TIME  INTERVAL  BETWEEN  CYCLES  BASED  ON  STABILITY  CRITERIA  1527 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 528 

C 1529 

C 1530 

COMMON  /CARRAY/  RHO(45. 225) . U(45. 225) , V(45. 225) . E(45. 225) . PHI  (45,  1 53 1 

1225),  BO(l.l).BR(l.l).BZ(l.l).DE(  1.1)  1532 

COMMON  /CMESH/  KMAX,  UMAX.  KP1 , JP1 . KP2.  JP2  1 533 

COMMON  /CBOUNO/  DANGLE (225),  I0BK(225).  IOBL  (225),  ISYM(4).  IAXI.  IDBQ  1534 

COMMON  /GRAVTY/  GC.  GR.  GZ  1 535 
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COMMON  /CTIME/  TIME.DT.  DTT.  STRB.  MINOT . MRXDT,  NCYCLE,  NMRX  1 536 

COMMON/CGRID/R(45) . RD(45) . Z(225) . DR (45) . DZ(225) . XD(45) , ZMIN.  RMIN,  0 1 537 

1 ZO.  ORO,  IGRRPH(225) . NBOUND  1 538 

COMMON /CS TRSS/ TRRR ( 225 ) . TZZR(225),  T00R(225),  TRZRC225 ),  l /ISC.  VI5C0  1539 

COMMON  /CCRLC/  BL . EMF.  MCRLC.  NMRGN.  NTHRM.  I POT.  IDFN.  IPT5F  1 540 

COMMON  /CINI T/  RHOO.  VZ.  VR.  BO.  BRO.  BZO.  EO.  PH  10.  PERMO.  VELOC.  RRFV.  PERM  1 54 1 

l.NVECT.NPDIM  1542 

CDMMON/CMHD/INSJ ( 225) . DVOL  T.  BR5EP.  DPOT.  SPRCE.  5PIN5L . JPLMIN.  JPLMRX  1 543 

COMMON  /COU TP/  TI  TLE(15) . KPDEL . JPDEL . NPLDT.  NPRN.  NDIGPL . NGRRPH  1 544 

COMMON/CMR TRX/  RC0EF(225) . BC0EF(225) . CC0EF(225) . DC0EF(225) . SUB (225  1545 

1).DIRG(225).  SUP (225).  CONST (225)  1546 

RERLm8  R.RD  1547 

RERL  I NT.  MINOT.  MRXD  T 1548 

DRTR  DTMIN.  DTHRM.  DMRGN.  DCONVM.  DVISCM.  DVISCZ.  DVI5CR.  DHTZ.  OHTR.  DCDNV  1 549 

1R.  DCONVZ/l  1 * 1 . E6/  1 550 

DRTR  DTZ.DTR.DMGZ.DMGR/4m1.E6/  1551 

DRTR  BT/O./  1552 

C 1553 

C 1554 

GRMMR=GRMM( 1.1)  1555 

STRBMG=0. 4 1556 

DO  10  J=2.JP1  1557 

DO  10  K=2,  KP1  1558 

INT=E(K.  J)  -0.  5m  (U(K.  J)m*2+  V(K.  J)mm2)  1 559 

IF  (EMF.EQ.l.)  BT=(B0(K.J)mm2+BR(K,J)m*2+BZ(K.J)mm2)/STRBMG  1560 

VISC=VIS(K,  J.  0, 0)  1561 

P=(GRMMR-1.  )mRHO(K.  J)mINT  1 562 

C 1563 

IF  (P.  NE.  0.  DR.  BT.  NE.  0.  ) DTZ=DZ(J)/(SQRT(BT/(RHO(K.  J)mPERM)  +RBS(GRM  1 564 

1MRmP/RHD(K . J))))  1565 

US=RBS(U(K.J))  1566 

IF  (US.  GT.  0.  OOOOl)  DCONVZ=DZ(J)/RBS(U(K.  J)  ) 1 567 

CND=COND(K.  J,  0, 0)  1568 

IF  (CND.  NE.  0.  ) DHTZ=DZ(J)mm2mRH0(K.  J)mCV(K,  J.  0. 0)/(2.  mCND)  1 569 

DMGZ=DZ(J)mm2mPERMmSIG(K,  J.  0. 0. 0)/2.  1 570 

IF  (VISC.NE.O.)  DVISCZ=0.5mRHO(K,J)mDZ(J)mm2/VISC  1571 

C 1572 

IF  (P.  NE.  0.  OR.  BT.  NE.  0.  ) DTR=DR(K)/(SQRT(BT/(RHO(K,  J)mPERM)+RBS(GRM  1 573 

1MRmP/RHO(K.  J))))  1574 

VS=RBS(V(K.J))  1575 

IF  (VS. GT. O.OOOOl)  DCONVR=DR (K)/RBS ( V(K.  J) ) 1576 

IF  (CND.NE.O.)  DHTR=DR(K)mm2mRHD(K,J)mCV(K.J.0.0)/(2.mCND)  1577 

DMGR=DR(K)m*2mPERMmSIG(K.  J,  0. 0. 0)/2.  1 578 

IF  (VISC.NE.O.)  DVISCR=0.5mRH0(K,J)mDR(K)mm2/VISC  1579 

C 1580 

C ELECTRIC  FIELD  DTEF  =RHD(I,J)/(SIGmB(I,J)mm2)  1581 

IF  (DTZ.LT. DTMIN)  DTMIN=DTZ  1582 

IF  (DTR.LT.  DTMIN)  DTMIN=DTR  1583 

IF  (DCONVZ.LT.  DCONVM)  DCONVM=DCONVZ  1584 

IF  (DCONVR.LT. DCONVM)  DCONVM=DCDNVR  1585 

IF  (DHTZ. LT. DTHRM)  DTHRM=DHTZ  1586 

IF  (DHTR.LT. DTHRM)  DTHRM=DHTR  1587 

IF  (DMGZ.LT. DMRGN)  DMRGN=DMGZ  1588 

IF  (DMGR.LT. DMRGN)  DMRGN=DMGR  1589 

IF  (DVISCZ.LT. DVISCM)  DVISCM=DVISCZ  1590 

IF  (DVISCR.LT. DVISCM)  DVISCM=DVISCR  1591 

IF  (DCONVM.LT. DTMIN)  DTMIN=DCONVM  1592 

C 1593 

10  CONTINUE  1594 

DT=DTMINmSTRB  1595 

DMRGN=DMRGNmS TRBMG  1596 

DTHRM=DTHRMmSTRB  1597 

IF  (DT.LT. MINDT)  DT=MINDT  1598 

IF  (OT.GT.  MRXDT)  DT=MRXDT  1599 
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NCDNV=DCDNVM/DT  1600 

NVISC=DVISCM/DT  1601 

IF  < MOD ( NC YCL E , NPRN)  .EQ.O)  VRITE  (6.20)  DT.DCONVM.  DTHRM,  DMRGN.  DVI5  1602 

I CM.  NCONV.  NTHRM,  NMRGN,  NVISC  1603 

RETURN  1604 

C 1605 

C 1606 

C 1607 

20  FORMRT  (2X.15HTIME  STEP  (SEC).2X.  I2H  HYDRO  ,2X.  12H  CONVECTION  1608 

1 . 2X.  12HTHERMRL  COND.  2X.  I2H  MRGN  DFSN  ,2X,  12HVI5C0US  DFSN.  7H  NCO  1609 

2NV.9H  NTHRM.  9H  NMRGN.  9H  NVISC.  //.  19X.  5 (El 2. 5. 2X).  4(18.  IX)  1610 

3.//)  1611 

END  1612 

SUBROUTINE  HULLPl  1613 

C 1614 

C 1615 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1616 

C LRGRRNGIRN  REFERENCE  FRRME  - CRLCULRTION  OF  U.  V RND  E RT  TIME(N+1)  1617 

C BRSED  ON  VRLUES  OF  RHO.  U.  V.  E.  PHI  RND  BO.  BR.  BZ  (OR  B)  RT  1618 

C TIME  (N+l)  1619 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 620 

C 1621 

C 1622 

COMMON  /CRRRR  Y/  RHO (45. 225) . U(45. 225) . V(45. 225)  ,E(45. 225) . PHI  (45.  1623 

1225) ,BO(l,  I),BR(1, 1).BZ(1, 1).DE(1. 1)  1624 

COMMON  /CMESH/  KMRX.  JMRX.  KP1 . JP1 . KP2.  JP2  1 625 

COMMON  /CBOUND/  DRNGLE(225) . IOBK(225) . IOBL  (225) . ISYM(4).  IRXI.  IDBQ  1 626 

COMMON  /GRRVTY/  GC.  GR.  GZ  1 627 

COMMON  /CTIME/  TIME.  DT.  DTT.  STRB.  MINOT.  MRXDT.  NCYCLE.  NMRX  1 628 

COMMON/CGRID/R(45) . RD(45) , Z(225) . DR (45) . DZ(225) . XD(45) . ZMIN.  RMIN.  D 1 629 

1ZO.  DRO.  IGRRPH(225) . NBOUND  1 630 

COMMON  /CCRLC/  BL . EMF.  MCRLC.  NMRGN.  NTHRM.  I POT.  IDFN.  IPTSF  1 63 1 

COMMON  /CINI T/  RHOO.  VZ . VR.  BO.  BRO.  BZO.  EO.  PH  10.  PERMO.  VELOC.  RRFV.  PERM  1 632 

l.NVECT.NPDIM  1633 

C0MM0N/CMHD/INSJ(225),DV0L  T.  BRSEP.  DPOT.  SPRCE.  SPINSL . JPLMIN.  JPLMRX  1 634 

COMMDN/CMR TRX/  RC0EF(225).BC0EF(225).  CC0EF(225).0C0EF(225 ).  SUB(225  1 635 

1 ) . DIRG(225) . SUP (225) . CONST (225)  1 636 

CDMMON/CS TORE/RHOF( 2, 225) , UF( 2. 225) . VF(2. 225) . EF(2. 225) . MFR(225) . 1637 

1UR(225) . VR(225) . UFR(225) . VFR(225).EFR(225). PR(225)  1638 

COMMQN/CS TRSS/TRRR( 225) . TZZR(225).  T00R(225),  TRZR(225).  VISC.  VISCO  1639 

COMMON  /CMRGN/BFR( 225) . BZZR(225) . BZFR(225) , BF(2. 225) . BFR(2. 225) . 1640 

1BFZ(2. 225)  1641 

RERL  *8  R.  RD.  RDIFF.  RIPH . RIMH.  RIP3H  1642 

RERL  JR  I PH.  JZIPH.  JRJPH.  JZJPH.  JR l . JZ1 , JR2.  JZ2.  JR.  JZ  1643 

RERL  MU.  LRM.  MFR.  MIP1.MJP1.M  1644 

DRTR  THRM.  DEVU.  DEW.  DEVE.  IL/O.  ,0.,0.,0.,0/  1 645 

C 1646 

C 1647 

C *jK*XXX*XX**XXX***)*XMX)KJKX(Mt****M(*KX**MXXXMX*MM(*KX**)KJIt*M(X*JK*XJKMJ**X**IK  1648 

C xxxxx  BL=0.  (I NVISC  10);  BL=1.  (LRMINRR):  BL=2.  (TURBULENT)  xxxxxxx  1649 

C **xxx  EMF=0.  (NO  EMF);  EMF=1.  (MRGN  INDC);  EMF =2.  (LORENTZ)  xxxxxx  1650 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1651 

C 1652 

C 1653 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1654 

C xxxxxxxxxxxxxxxxxxxxxxxxx  PHRSE  ONE  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1655 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXMXXXXXXXXXXXXXXXXXX  1 656 

IL=IL+1  1657 

GRMMR=GRMM( 1.1)  1658 

ILRM=0  1659 

PI =3. 1416  1660 

IPSD=1  1661 

DO  130  I=1.KP1  1662 

IPSO=-IPSO  1663 
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IPS- 2 1664 

IPF=1  1665 

IF  UPSO.LT.O)  IPS=1  1666 

IF  (IPSD.LT.O)  IPF=2  1667 

DO  130  J=1,JP1  1668 

PM = PERM  1669 

RIPH=R(I)+DR(I)/2.  1670 

IF  (I.EQ.l)  R I MH=R(  1 ) -DR(  1 )/2.  1671 

IF  (I.GT.l)  RIMH=R<  1-1 )+DR( I )/2.  1672 

RIP3H=R( 1+1 )+DR(  I +l)/2.  1673 

RDIFF=RIPH**2-RIMH»*2  1674 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1675 

xxxxxxxxxxxxxx  COMPUTING  MOSS  FIND  DENSITY  RT  TIME(N)  xxxxxxxxxxxxx  1676 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm  1677 

M=RHO(  I . J)  *PIx  (RIPH*x2-RIMH*x2)  *DZ(J)  1 678 

MI  PI  =RHO(  1+1 . J)*PI*  (RlP3H**2-RIPH*x2)*DZ(J)  1 679 

MJP1=RH0(I,  J+l)*Pl*(RIPH*x2-RIMH**2)*DZ(J+l)  1680 

RHOIPH=  (M+MIPl  )/(Pl*  (RIP3H*x2-RIMH*x2)  *DZ(J)  ) 1681 

RHOJPH=  (M+MJPl  )/<PI*  (RIPH*x2-RIMH*x2)  x (DZ(J)  +DZ(J+1)))  1682 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1683 

xxx xx  COMPUTING  DENSITY  RND  PRESSURE  RT  CELL  INTERFRCE  xxxxxxxxxxx  1684 

xxxxxxxxxxxxxxxxxxx  RT  TIME(N+l/2)  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1685 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1686 

RHOIPH=RHOIPH* ( 1 . -DT/(2.  *RIPH)*(R(  1+1  )xV(I+l , J)-R(I)xV(I.  J))/(R(I+  1687 

ll)-R(I)))  1688 

RH0JPH=RH0JPH*<1.  -DT/2.  *<U(I.  J+1)-U(I,  J))/(Z(J+1)-Z(J)))  1689 

P=(GRMMR~1.  )*RHD(I,  J)*(E(I.  J)-0.  Sx(U(I , J)**2+V(l.  J)xx2))  1690 

PIP1  - < GRMMR- 1 . )*RH0(I+l.J)*<E(I+l.J)-0.  5*(U(l+l,J)*x2+V<I+l,J)**2)  1691 

1)  1692 

PJP1= (GRMMR- 1.  )*RHO(I.  J+1)*(E(I,  J+l)-0.  5»(U(I,  J+l)xx2+V(I,  J+l)*x2>  1693 

1)  1694 

IF  (EMF.NE.  1.  ) GO  TO  10  1695 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1696 

xxxxxxxxxxxxxxxxxxxxx  MRGNETIC  PRESSURE  xxxxxxxxxxxxxxxxxxxxxxxxxx  1697 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm  1698 

BP=BO(I.  J)**2+BR(I.  J)mx2+BZ(I,  J)*x2  1 699 

BPIPl=B0(I+l.J)*x2+BR(I+l,J)*x2+BZ(I+l'J)»*2  1700 

BPJP1=B0(I.  J+1)**2+BR(I.  J+l)*x2+BZ(I,  J+l)**2  1701 

P=P+BP/(2.*PERM)  1702 

PI  PI  =PIP1  +BPIPl/(2.  xPERM)  1 703 

PJP1  =PJP1  +BPJPl/(2.  xPERM)  1 704 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1705 

mmm  CRLCULRTION  OF  VELOCITIES  RT  CELL  INTERFRCE  RT  TIME(N+l/2)  xxx  1706 

xxxxxxx  BRSED  ON  PRESSURE,  GRRVITY  RND  LORENTZ  FORCE  xxxxxxxxxxxxx  1707 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1708 

10  UJPH=(U( I , J)+U(I,  J+l))/2.  -DT/(2.  xRHOJPH)x(PJPl -P)/(Z(J+1) -Z(J) ) -GZ  1709 

lxDT/2.  1710 

UIPH=  (U( I,  J)  +U(  1+1,  J))/2.  1711 

VIPH=(V( l+l,J)+V( I,  J))/2.  -DT/(2.  xRHQIPH)*(PlPl-P)/(R(l+l)-R(l))-GR  1712 

lxDT/2.  1713 

VJPH=(V(l,J)  + V(l,J+l))/2.  1714 

PIPH=  ( PIP1  +P)/2.  x(l.  -DTxGRMMRx(R(I+l)xV(I+l,J)-R(I)xV(I,J))/(2.  xRI  1715 

lPHx(R(  1+1  )-R(  I ))))  17.16 

PJPH-  ( PJP1  +P)/2.  x(l.  -D TxGRMMRx (U(I,J+1) -U( I , J))/<2.  x(Z(J+l )-Z(J)))  1717 

1)  1718 

IF  (EMF.NE.  2.)  GO  TO  20  1719 

C xxxxxmxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 720 

C xxxxxxxx  CRLCULRTION  OF  ELECTRIC  CURRENTS  RT  CELL  INTERFRCE  xxxxxx  1721 

C xxxxxxxxxxxxxxxxxxxxxxxxxx  RT  TIME(N)  xxxxxxxxxxxxxxxxxxxxxxxxxxxx  1722 

C XXXXXXXXXXXXXXXXXXXXX), KXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXM  1 723 

C IPTSF=1,  PHI  = CURRENT  STRERM  FUNCTION;  =2,  PHI  - POTENT IRL  1724 

C IPOT  =1,  ELECTRICRL  TERMS  OFF;  =1,  ELECTRICRL  TERMS  ON  1725 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1726 

IF  (I.EQ.  1. OR.  J. EO.  LOR.  I, EQ. KP2. OR.  J. EO.  JP2)  GO  TO  20  1727 
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CRLL  CURRNT  ( JZIPH , JR . EZ.  ER,  UIPH.  VI PH,  1728 

CRLL  CURRNT  (JZ.  JRIPH.  EZ,  ER,  UIPH,  VIPH,  I,J,1,0)  1 729 

CRLL  CURRNT  (JZJPH,  JR.EZ.ER,  UJPH,  VJPH,  I,  J,  0. 1 ) 1730 

CRL L CURRNT  (JZ,  JRJPH,  EZ.  ER,  UJPH.  VJPH,  I,  J.  0.1)  1731 

UJPH=UJPH+D T/ ( 2.  *RHOJPH)*JRJPH*(B(I.  J)+B(I.  J+l))/2.  1 732 

V I PH=  V I PH+D T/ ( 2.  *RHOlPH)*(-JZlPH*(B(l.  J)+B(I+l,J))/2.  ) 1733 

P I PH=P I PH+D T*( GRMMR- 1 . )*<JRIPH**2+JZIPH**2)/<2.  *SIG(I.  J.  1.0.0))  1734 

P JPH=PJPH+OT*( GRMMR- 1 . )*(JRJPH**2+JZJPH**2)/<2.  *SIG(I, J. 0.1,0))  1735 

20  CONTINUE  1736 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1737 

C xxxxxxxxxx  RRTIFICIRL  VISCOSITY  (IF  NECESSRRY)  xxxxxxxxxxxxxxxxxxx  1738 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1739 

DV=V(I+1.J)-V(I.J)  1740 

DU=U(I.J+1)-U(I.J)  1741 

IF  (DV.LT.O.)  PlPH=PlPH-DV*RRFV*(GRMMR*PlPH/RHQIPH)*x0.5  1742 

IF  (DU.LT.O.)  PJPH=PJPH-RRFV*DU*(GRMMR*PJPH/RH0JPH)**0.5  1743 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1744 

C xxxxxxx  CRLCULRTION  OF  MRGNETO  STRESS  TENSOR  RT  TIME(N)  xxxxxxxxxx  1745 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1746 

IF  (EMF.NE.  1.)  GO  TO  30  1747 

BZP1  = (BZ(I+1 . J)  +BZ(  I.  J+ 1 ) +2.  xBZU+l  ,J+l))/4.  1748 

IF  (BL.EQ.l.)  ILRM=1  1749 

BRPl=(BR(I+l.J)+BR(I.J+l)+2.*BR(I+l.J+l))/4.  1750 

TRRIP1=-BR(  1+1 , J)xx2/PERM  1 75 1 

TOOIP1  =-BO( I + 1 . J)xx2/PERM  1 752 

TRZP1  =-BRPl  xBZPl/PERM  1753 

TZZJP1 =-BZ(I.  J+1)**2/PERM  1 754 

BRPH=(BR(I+l.J+l)+BR(I+l.J)+BR(I,J+l)+BR(I,J))/4.  1755 

BZPH=(BZ( 1+1 , J+1)+BZ(I+1 , J)+BZ(I,  J+1)+BZ(I.  J))/4.  1756 

TRZP2=-BRP1 xBZPl  1757 

TRR=-BR( I,  J)xx2/PERM  1 758 

TOD=-BO( I,  J)xx2/PERM  1759 

TRZ1  =-BR( I,  J)xBZ( I.  J)/PERM  1 760 

TRZ2--BR( I,  J)xBZ(I.  J)/PERM  1 76 1 

TZZ=-BZ(I.  J)xx2/PERM  1 762 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1763 

C xxxxx  CORRECTION  TO  PRESSURE  DUE  TO  MRGNETO-S TRESS  RT  xxxxxxxxxxxx  1764 

C xxxxxxxxxxxxxxx  CELL  INTERFRCE  RT  TIME(N+l/2)  xxxxxxxxxxxxxxxxxxxx  1765 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1766 

DEVP1=(R(I+1)xTRRIP1xV(I+1,J)-R(I)xTRRxV(I,J))/(RIPHx(R(I+1)-R(D)  1767 

D+(R(l+l)xU(I+l,J)xTRZPl-R(I)xU(I,J)xTRZl)/(RIPHx(R(I+l)-R(l)))  1768 

DEVP2=(TZZJPlxU(I , J+l) - TZZxUd,  J) )/(Z(J+l ) -Z(J))+( TRZP2xV(I.  J+l)-T  1 769 

1RZ2xV(I,J))/(Z(J+1)-Z(J))  1770 

PIPH=PIPH-  ( GRMMR- 1.  )xDT/(2.  xRHOIPH)xDEVPl  1 77 1 

PJPH=PJPH-  ( GRMMR- 1.  )xQT/(2.  xRH0JPH)xDEVP2  1 772 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1773 

c xxxxxxxxx  CORRECTION  OF  VELOCITIES  RT  CELL  INTERFRCE  RT  xxxxxxxxxx  1774 

C xxxxxxxxxxxx  TIME(N+l/2)  DUE  TO  MRGNETO-STRESS  xxxxxxxxxxxxxxxxxxx  1775 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 776 

UJPH=UJPH-DT/(2.  *RH0JPH)*(TZZJP1-TZZ)/DZ(J+1)  1777 

VIPH=VIPH-DT/(2.  *RHOIPH)*( (R(  1+1  )xTRRIPl-R( I )xTRR)/(RIPH*DR(  1+1 ) )-  1778 

1 ( TOOIP1  + T00)/2.  / RIPH ) 1 779 

UIPH-UIPH-D T/ ( 2.  *RHOIPH)*(R(l+l  )*TRZP1  -R(l)mTRZl )/(RIPH*DR(  1+1 ) ) 1 780 

VJPH= VJPH-D T/ ( 2.  *RH0JPH)*(TRZP2- TRZ2)/DZ(J+1 ) 1 78 1 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 782 

C xxxxxxx  CRLCULRTION  OF  LRMINRR  STRESS  COMPONENTS  RT  CELL  xxxxxxxxx  1783 

C xxxxxxxxxxxxxxxxxxxx IN TERFRCE  RT  TIME (N+l/2)  xxxxxxxxxxxxxxxxxxxxx  1784 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1785 

30  IF  (BL.NE.l.)  CO  TO  40  1786 

ERRIPH=(V(I+l.J)-V(I.J))/(R(Ii-l)-R(I))  1787 

EOOIPH=  VIPH/RIPH  1 788 

ERZPH=(U(  I+1,J)-U(  I,  J))/(R(  I+l)-R(  I))  1789 

EZZJPH~(U(  I,  J+1)-U(l,  J))/(Z(J+1)-Z(J))  1790 

ERZPH2=(V(I.  J+1)-V(I,  J))/(Z(J+1)  -Z(J)  ) 1791 
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EE  I JPH=E ZZJPH+ERRIPH+  EDO  I PH  1792 

MU=VIS(I.J.  1,0)  1793 

LRM=-2.  /3.  *MU  1794 

TRRIPH=-2.  *MU*ERRIPH+L RMxFEIJPH  1795 

T0niPH=-2.  xMUxEOOIPH+LRMxEEIJPH  1796 

TRZPH=-MU*ERZPH  1797 

MU=VI5(I.J,0. 1)  1798 

LRM=-2.  /3.  *MU  1799 

TZZJPH=-2.  *MU*EZZJPH+LRM*EEIJPH  1800 

TRZPH2=-MU*ERZPH2  1801 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1802 

C xxxxxxx  CRLCULRTIDN  DF  MRGNETD  STRESS  COMPONENTS  RT  CELL  xxxxxxxmx  1803 

C XXXXXXXXXXXXXXXXXXXX 1NTERFRCE  RT  TIME (N+l/2)  XXXXXXXXXXXXXXXXXXXXX  1804 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXX  1805 

40  IF  (EMF.NE.l.)  GO  TO  50  1806 

TRRIPH=- ( (BR<  1+l.J)  +BR( I,  J))/2.  )xx2/PERM+ILRMxTRRIPH  1807 

TOOIPH=- ((BO(  I+l.J)  +BO( I . J))/2.  )xx2/PERM+ILRMxT00IPH  1808 

TZZJPH=-((BZ(I,  J+1)+BZ(I.  J))/2.  )**2/PERM+ILRM*TZZJPH  1 809 

TRZPH=-BRPH*BZ PH /PE RM+ IL RM*  TRZPH  1810 

TRZPH2=-BRPH*BZPH/PERM+ ILRMx TRZPH2  1811 

50  IF  (BL.NE.2.  ) GO  TO  60  1812 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1813 

C xxxxxxxx  CRLCULRTIDN  OF  TURBULENT  SHERR  RT  CELL  INTERFRCE  xxxxxxxx  1814 

C xxxxxxxxxxxxxxxxxxxxxxxxx  RT  TIME  (N+l/2)  xxxxxxxxxxxxxxxxxxxxxxxxx  1815 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXX  1816 

ERZPH=  (U( I +1,J) -U< I,  J) )/( R(I+1)~R(I))  1817 

MU=VIS(I.J.  1.0)  1818 

TRZPH=-  (MU+EDDY( I.  J))*ERZPH  1819 

C 1820 

60  IF  ( I.EO.l.OR.J.EO.l ) GO  TO  90  1821 

PIMH=PR(J)  1822 

UIMH=UR(J)  1823 

VIMH=VR(J)  1824 

C XXXXXXXXXXXXXXXXXXXXX xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1825 

C xxxxxxxxxx  PRESSURE  INFLUENCE  ON  U.  1/  RNO  E RT  CELL  CENTERS  xxxxxxx  1826 

C XXXXXXXXXXXXXXXXXXXXXXXXX  RT  TIME(N+1 ) xxxxxxxxxxxxxxxxxxxxxxxxxxx  1827 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 828 

SPHU=-DTx(PJPH-PJMH)/(RHO( I.  J)*DZ(J) )-DT*GZ  1829 

SPH V=-DTx( PIPH-PI MH)/( RHO ( I , J)*DR(I))-DT*GR  1830 

CMPR=-DT/RHO( I,  J)*(  (RIPH*P1PH* V1PH-RIMH*PIMH*VIMH)/(R( I )*DR( I ) ) + (P  1831 

/ JPH*UJPH-PJMH*UJMH)/DZ(J) ) 1832 

IF  (EMF.NE.  1.  .RND.BL.NE.  1.  ) GO  TO  70  1833 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1834 

C xxxxxxxxxx  LRMINRR  RND/OR  MRGNETIC  INFLUENCE  ON  U.  V RNO  E xxxxxxxx  1835 

C xxxxxxxxxxxxx  RT  CELL  CENTERS  RT  TIME(N+1 ) xxxxxxxxxxxxxxxxxxxxxxx  1836 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1837 

TRR I MH= TRRR( J)  1838 

TOOIMH= TOOR ( J)  1839 

DEVU=-DTx( (RIPHx TRZPH-RIMHx TRZR(J) )/(R(I )xQR( I ))  + ( TZZJPH-  TZZJMH)/D  1840 

1Z(  J)  )/RHO(  I.  J)  1841 

DEVV=-DTx(  (RIPHxTRRIPH-RIMHxTRRIMH)/(R<  I )xDR(  I ) )+(  TRZPH2-  TRZMH2)/D  1 842 

1Z(J)  - ( TOOIPH+  TOO  I MH)  / ( RIPH+RIMH ) )/RHO(I.  J)  1843 

DEVE=-DT/RHO( I . J)x( (RIPHxTRRIPHxVIPH-RIMHxTRRIMHxVIMH)/(R( I )xDR( I ) 1844 

1 ) + (RIPHx  TRZPHxUIPH-RIMHx  TRZR(J)xUIMH)/(R(  I )xDR(  I ) ) + ( TZZJPHxUJPH-  TZ  1845 

2ZJMHxUJMH)/DZ(J) + ( TRZPHxVJPH- TRZMHxVJMH)ZDZ(J))  1 846 

70  IF  (BL.NE.2.)  GO  TO  80  1847 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1848 

xxxxxxxxxx  TURBULENT  SHERR  INFLUENCE  ON  U.V  RND  E RT  CELL  xxxxxxxx  1849 

xxxxxxxx xxxxxxx xxxxxxx  CENTERS  RT  TIME(N+1 ) xxxxxxxxxxxxxxxxxxxxxx  1850 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 85 1 

DEVU=-DTx(  (RIPHx  TRZPH-RIMHx  TRZR(J)  )/(R(l)xDR(  I)  ) )/RHD(l.  J)  1 852 

DEVV=0.  1853 

DEVE=-DT/RHO(  I . J)x(RIPHxTRZPHxUIPH-RIMHxTRZR(J)xUIMH)/(R(  I )xDR(  I ) ) 1854 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxx  1 855 
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c ********  STORING  U,  V AND  E INCREMENTS  AT  CELL  CENTERS  AT  ********  1856 

C **************************  T I ME  (N+l ) ******************************  1857 

C ******************************************************************  1858 

80  UF( IPS,  J)=SPHU+DEVU  1 859 

VF( IPS.  J)  =SPHV+0EVV  1860 

EF( IPS.  J)  =CMPR-DT* <V(l,J>  + VF( IPS.  J) )*GR-0 T* <U< I . J)  +UF< IPS.  J) )*GZ+D  1861 

1EVE  1862 

IF  (EMF.NE.2)  GO  TO  90  1863 

C ******************************************************************  1864 

C ****  CALCULATION  OF  ELECTRICAL  INFLUENCE  ON  U.  V AND  E AT  CELL  ****  1865 

C *******************  CENTERS  AT  TIMECN+l ) *************************  1866 

C ******************************************************************  1867 

IF  (I.  EQ.  LOR.  I.  EQ. KP2.  OR.  J. EQ.  I . OR.  J.  EQ.  JP2)  GO  TO  90  1 868 

UU=U(I.J)  1869 

VV=V(I.J>  1870 

CALL  CURRNT  (JZl . JRL  EZ.  ER.  UU.  VV.  I.  J.  0. 0)  1871 

UP=U(I.  J)  +U<IPS.  J>  1 872 

VP=V(I,J)  + V(IPS.J)  1873 

CALL  CURRNT  (JZ2.  JR2.  EZ.  ER.  UP.  VP.  I.  J.  0. 0)  1 874 

UF(IPS.  J)=UF< IPS,  J)+JRl*B< I . J)*DT/RHO< I.  J)  1 875 

VF(IPS.  J)=VF( IPS.  J)  + (-JZl*0( I.  J))*DT/RHO< I.  J)  1 876 

EFdPS.  J)=EF( IPS.  J)  + ( JZ2*EZ+JR2*ER)*0T/RH0( I.  J)  1 877 

C ******************************************************************  1878 

C ****  REVERSING  CELL  INTERFACE  VALUES  - RIGHT  BOUNDARY  VALUE  ******  1879 

C ****  OF  LEFT  CELL  BECOMES  LEFT  BOUNDARY  VALUE  OF  RIGHT  CELL  ******  1880 

C ******************************************************************  1881 

90  VA(J)=VIPH  1882 

UA(J)=UIPH  1883 

PA(J)=PIPH  1884 

UJMH=UJPH  1885 

VJMH=VJPH  1886 

PJMH=PJPH  1887 

IF  (EMF.  NE.  I. . AND.  BL.NE.D  GO  TO  100  1 888 

TRRA( J) = TRRIPH  1889 

TOO A (J)= TOO I PH  1890 

TRZA( J) - TRZPH  1891 

TRZMH=TRZPH  1892 

TRZMH2= TRZPH2  1893 

TZZJMH= TZZJPH  1894 

100  IF  (BL.NE.2.)  GO  TO  UO  1895 

TRZA(J)=TRZPH  1896 

C ******************************************************************  1897 

C **********  ASSIGNING  VALUES  OF  U.V  AND  E AT  TIME(N+1)  ************  1898 

C ******************************************************************  1899 

110  IF  (J.E0.1.0R.I.LT.3)  GO  TO  130  1900 

JH=1  1901 

IF  (I.EQ.KP1)  JH=2  1902 

DO  120  JL=l,JH  1903 

N=I-2+JL  1904 

L=IPF  1905 

IF  (JL.E0.2)  L=IPS  1906 

U(N.  J)  =U(N.  J)  +UF(L  .J)  1907 

V(N.  J)=V(N.  J) + VF(L . J)  1 908 

IF  (ABS(U(N,J)).LT. O.OOOOl)  U<N.J)=0.  1909 

IF  (ABS(V(N,  J)).  L T.  0,  QOOQ1)  V<N.J)=0.  1910 

E(N.  J)=E(N,  J)  +EF(L  .J)  1911 

120  CONTINUE  1912 

130  CONTINUE  1913 

RETURN  1914 

C 1915 

END  1916 

SUBROUTINE  HULLP2  1917 

C 1918 

C 1919 
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C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 920 

C THE  TRRNSPORTING  OF  MRSS  (RE-ZDNING)  RND  COMPUTRTIDN  OF  RHD  RT  1921 

C TIME(N+1)  BR5ED  DN  VRLUES  OF  RHD,  U,  V RND  E RT  TIME(N+1).  1922 

C CORRECTION  OF  U,  V RND  E RT  TIME(N+1)  FDR  THE  CDNVECTIDN  1923 

C OF  MOMENTUM  RND  ENERGY  RESULTING  FROM  THE  TRRNSPORTING  OF  MRSS  1924 

C BETyEEN  CELLS  1925 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  1 926 

C 1927 

C 1928 

COMMON  /CRRRRY/  RHD(45, 225) . U(45, 225) . V(45, 225) , E(45, 225) , PHI (45,  1 929 

1225), BO(1, 1),BR(1, 1 ),BZ(1,  l),DE(l,  I)  1930 

COMMON  /CMESH/  KMRX,  JMRX,  KPl , JP1 , KP2,  JP2  1 93 1 

COMMON  /CBOUNO/  DRNGLE(225) , I0BK(225) , IDBL  (225) , ISYM(4),  IRXI,  IOBQ  1 932 

COMMON  /GRRVTY/  GC,GR,GZ  1933 

COMMON  /CT I ME/  T I ME,  DT,DTT,S  TRB,  MIND  T , MRXD  T , NC  YCL  E,  NMRX  1934 

COMMON/CGRID/R(  45) , RD(45) , Z(225) , DR  (45) , DZ(225) , XD(45) , ZMIN,  RMIN.  D 1 935 

IZO,  DRO.  I GRRPH( 225) , NBOUND  1 936 

COMMON  /CCRLC/  BL , EMF,  MCRLC.  NMRGN,  NTHRM.  I POT,  IDFN.  IPTSF  1 937 

COMMON  /CINI T/  RHOO,  VZ,  VR,  BO,  BRO,  BZO,  EO,  PH  10,  PERMO,  VELDC.  RRFV,  PERM  1 938 

1,NVECT,NPDIM  1939 

COMMON/CMHD/INSJ ( 225) , DVOL  T,  BRSEP,  DPOT,  SPRCE,  SPINSL , JPLMIN.  JPLMRX  1940 

COMMON/CMR TRX/  RC0EF(225) , BC0EF(225) , CC0EF(225) , DCDEF(225) , SUB(225  194 1 

1 ) , DIRG(225) , SUP (225) , CONS T ( 225)  1942 

COMMON/CS T0RE/RH0F(2, 225) , UF(2, 225) . VF(2, 225) , EF(2, 225) , MFR(225) , 1943 

1 UR (225) . VR(225) , UFR(225) , VFR(225) , EFR(225) , PR(225)  1944 

COMMON/CS TRSS/ TRRR ( 225) , TZZR(225) , T00R(225) , TRZR(225) , VI SC.  VI SCO  1 945 

COMMON  /CMRGN/BFR ( 225) . BZZR(225) . BZFR(225) . BF(2, 225) . BFR(2. 225) , 1 946 

1BFZ(2, 225)  1947 

RERL*8  R.  RD,  RIMH,  RIPH,  RIPP  1948 

RERL  M,  MIJ,  MFIPH.  MFIMH.  MFJPH.  MFJMH.  MFR  1949 

C 1950 

C 1951 

C *X**X****MXMXX**X*****X*X******MM*X**X*X*X****X*#*X*XX*M*XX*M***X*  1 952 

C xxxxxxxxxxxxxx  PHRSE  TVO  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1953 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  1 954 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXXXXXXXXXM  1955 

C *****  CRLCULRTION  OF  MRSS.  MOMENTUM,  ENERGY  RND  MRGNETIC  *********  1956 

C xxxxxxxxxxxxxx**************  INDUCTION  FLUX  **********************  1957 

C XXXXXXXXXXXXXXXXXXXXXXX*******************************************  1958 

PI =3. 14159  1959 

DO  10  J=2.JP1  1960 

VIMH=(V( 1 , J)  + V(2.  J))/2.  1961 

IDM=1  1962 

IF  (VIMH.LT.O.)  IDM=2  1963 

RHOIMH=RHO( IBM,  J)*(l.  -DT/(R(  1 )+OR(  1 )/2.  )*(R(2)*V(2,  J)-R(l)*V(l.J))  1964 

1/(R(2)-R(1)))  1965 

DRR=DR(1)  1966 

RIPP=R(l)+DRR/2.  1967 

MFR (J) = V I MH*RHO I MH*2.  *PI*(RIPP+0. 5* VIMH*D T)*DZ(J)*DT  1 968 

UFR  ( J)  =MFR  (J)*U(  I DM.  J)  1 969 

VFR(  J)=MFR(  J)*V(  I DM.  J)  1970 

EFR(  J)=MFR(  J)*E  ( I DM,  J)  1971 

C 1972 

IF  (EMF.NE.l)  GO  TO  10  1973 

BFR(J)=VIMH/(R(2) -R(  1 ) )*B( IDM,  J)*DT  1974 

BRR=(BR(2.  J)  +BR(1.  J)  )/2.  1 975 

BZZR(J)=(U(2,  J)  +U(1 . J)  )/2.  /(R(2)  -R(l ) )*BRR*OT  1 976 

BZFR(J)=(V(2.  J)+V(l,J))/2.  /(R(2)-R(l) )*BZ ( IDM,  J)*DT  1977 

10  CONTINUE  1978 

IPSD=1  1979 

DO  60  I =2, KPl  1980 

1PS0=-IPS0  1981 

IPS=2  1982 

1PF-1  1983 
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IF  (IPS0.LT.0)  IP5=1  1984 

IF  (IP5D.LT.0)  IPF=2  1985 

DO  60  J=2.JPl  1986 

RI PH=R( l)+DR( I )/2.  1987 

RIMH=R(l-l)+DR(I)/2.  1988 

UJPH=(U( I,  J)+U( It  J+l ))/2.  1989 

VIPH=(V(I,J)  + V(I+l,J))/2.  1990 

UIPH=<U(I,J)+U(I+l,J))/2.  1991 

VJPH=(V(I,J)+V(I,J+l))/2.  1992 

IDP=I  1993 

JDP-J  1994 

IF  (UJPH.LT.O.)  JDP=J+1  1995 

IF  (VIPH.LT.O.)  IDP=I+1  1996 

C 1997 

RHDIPH=RHO(IDP,J)*<l.-DT/RIPH*(R(I+l)*V(I+l.J)-R(I)xV(I.J))/<R<I+l  1998 

l)-R(I)))  1999 

RHOJPH=RHO( I,  JDP)*(1.  -DT*(U(l,  J+1)-U(I.  J))/(Z(J+1)-Z(J)))  2000 

MFJPH=UJPH*RH0JPH*2.  *PI*R(l)*DR(I)*DT  200 1 

C 2002 

MFIPH=VIPH*RH0IPH*2.  *PI*(RIPH+0.  5*VIPH*DT)»DZ(J)*DT  2003 

IF  (J.  NE.  2)  GO  TO  20  2004 

UJMH=(U(  I , J)+U(  It  J-l))/2.  2005 

JDM=1  2006 

IF  (UJMH.LT.O.)  JDM=2  2007 

RHOJMH=RHO(I,  JDM)*(1.  - DTm(U(I , J)-U(I,  J-l ) )/(Z(J)-Z(J~l ) ) ) 2008 

MFJMH=(U(I,  l)+U(I,2))/2.  *RH0JMH*2.  *PI*R(I)*DR(I)*DT  2009 

UFJMH=MFJMHmU( I , JDM)  2010 

VFJMH=MFJMH*Z(I.  JDM)  20 1 1 

EFJMH=MFJMH*E( I , JDM)  2012 

C 2013 

IF  (EMF.NE.I)  GO  TO  30  2014 

BFJMH=UJMH/(Z(J)-Z(J-1))>kBD<I,  JDM)*DT  2015 

BRFJMH=UJMH/(Z(J)-Z(J-l))*BR(I,  JDM)*DT  20 1 6 

BZZ=(BZ(I,2)+BZ(I,l))/2.  2017 

BRIJMH=(V<I,2)  + V(I.  l))/2./(Z(2)-Z(l))*BZZ*DT  2018 

20  IF  (EMF.NE.I)  GO  TO  30  2019 

BF I PH  = V I PH/  (R(  I +1)  -R(I))*BO(IDP.  J)mDT  2020 

BZZ=(BZ(I,J)+BZ(I,J+l))/2.  2021 

BRIJPH=  VJPH/(Z(J+ 1 ) -Z(J)  ) *BZZ*D  T 2022 

BZF  IPH=VIPH/(R(  1+1  )-R(  I))*BZ(  I DP,  J)»OT  2023 

BFJPH=UJPH/(Z(J+1)-Z(J))*B(I>  JDP)mOT  2024 

BRFJPH=UJPH/(Z(J+1 ) -Z(J))*BR(I,  JDP)*DT  2025 

BRR=(BR(I.J)+BR(I+l,J))/2.  2026 

BZIJPH=UIPH/(R(  1+1  )-R(  I ) )*BRR*DT  2027 

30  CONTINUE  2028 

C 2029 

UFIPH=MFIPH*U(IDP.  J)  2030 

VF1PH-MFIPH*  V(IDPf  J)  203 1 

UFJPH=MFJPH*U(I,JDP)  2032 

VFJPH=MFJPH* V(I.  JDP)  2033 

EFIPH=MFIPH*E(IDP,  J)  2034 

EFJPH=MFJPH*E(I.  JDP)  2035 

MFIMH-MFR(J)  2036 

UFIMH=UFR(J)  2037 

VFIMH=VFR(J)  2038 

EFIMH=EFR(J)  2039 

C 2040 

C )KI«}K*)i(M*M*MmM)KXXXXmXMXXXXMm*XXM)KXm*M*)KM)KXXmXXMM)KMm***M*mm)KmXXm*MM)KX  2041 

C xxxxxx******  CRLCULRTION  OF  DENSITY  RT  TIME(N+1)  BRSED  DN  xxxxxxx*  2042 

C mxKiKMXxxxmxxxMxxxxxx  MRSS  FLUX  CONTRIBUTIONS  xxxxmxmmxMxmmmxmmmxxx  2043 

C MmxmxMXM0MmxxxMXMMXxxmxxx)KXXMXxxxxxMmxxxxxxxxMmxMxmxxxxmxxxMxxxxmm  2044 

M=RHO(I,  J)*PI*(RIPH**2-RIMH**2)*DZ(J)  2045 

MIJ=RH0<I,J)*PI*<RIPHx*2-RIMHx*2)xDZ<J)+MFIMH+MFJMH-MFIPH-MFJPH  2046 

C 2047 
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RH0F(  IPS,  J)  =M  I J/  (PI  *(  RIPH**2-RIMM**2)  *DZ  ( J)  ) 

C 

C X(**XXXM(XXXX**X**M**XXXX**XXXX*KXXX*XX*XXXXXX*XXXXXXXXXX*mXXXM**iKM(X 

C xxxxxxxxxxxxxxx  CORRECTION  OF  VELOCITIES  RND  ENERGY  DUE  xxxxxxxxxx 

C xxxxxxxxxxxxxxxxxxxxxxxxxx  CONVECTION  xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXi WXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXX 

UF(  IPS,  J)=(U(I.  J)*M+UF1MH+UFJMH-UFIPH-UFJPH)/MIJ 
VF(IPS,  J)=(V(I,  J)*M+ VFIMH+ VFJMH- VFJPH- VFIPH)/MIJ 
INT=(E(I,  J)  *M+EF  IMH+EF JMH-EF IPH-EF JPH-0.  5*(U(l,  J)*»2+V(l,  J)*»2)*Ml 
1J)/MIJ 

EF( IPS,  J)=INT+  <U(I.  J)xx2+  V(I.  J)**2)/2. 

MFJMH=MFJPH 

UFJMH=UFJPH 

VFJMH-VFJPH 

EFJMH=EFJPH 

C 

IF  (EMF.NE.  1)  GO  TO  40 
BFIMH=BFR(J) 

BZIJMH=BZZR(J) 

BZFIMH=BZFR(J) 

BF(  IPS,  J)=(B0(I . J)  +BFIMH+BFJMH-BFI PH-BFJPH) 

BFR( IPS,  J)=(BR( I,  J)  -BRIJMH+BRFJMH+BRIJPH-BRFJPH) 

BFZ ( IPS,  J)=(BZ< I,  J)  +BZFIMH-BZ IJMH-BZFI PH+BZ I JPH) 

BFJMH=BFJPH 
BRFJMH=BRFJPH 
BRIJMH=BRIJPH 
BFR(J)=BFIPH 
BZZR ( J) =BZ I JPH 
BZFR  ( J)  =BZF  I PH 
C 

40  MFR(J)=MFIPH 
UFR(J)=UFIPH 
VFR(J)=VFIPH 
EFR(J)=EFIPH 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxx  RSSIGNING  VRLUES  TO  RH0,U,  V,EB,BR  RND  BZ  xxxxxxxxmxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxx  RT  TIME (N+l ) xxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxmmxmxxmxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
IF  (I.  LT.3)  GO  TO  60 
JH=1 

IF  (I.EQ.KP1)  JH=2 
DO  50  JL=1,JH 
N=I-2+JL 
L=IPF 

IF  (JL.EQ.  2)  L=IPS 
RH0(N,  J)=RH0F(L,  J) 

U(N,J)=UF(L,J) 

V(N,  J)=VF(L,  J) 

IF  (RBS(U(N,J)).LT.  0.00001)  U<N,J)=0. 

IF  (RBS(V(N,J)).LT. 0.00001)  V(N,J)=0. 

E(N,J)=EF(L,J) 

C 

IF  (EMF.NE.  1)  GO  TO  50 
BO(N,  J)  =BF(L , J) 

BR(N,  J)  =BFR(L , J) 

BZ(N,J)=BFZ(L,J) 

50  CONTINUE 
60  CONTINUE 
RETURN 
END 

SUBROUTINE  EFIELD 
C 
C 

c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
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C SOLVES  ELECTRIC  POTENT IRL  OR  STRERM  FUNCTION  ELLIPTIC  POE  2112 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2113 

C 2114 

C 2115 

C DIMENSION  COEFI (45, 225) . COEF2C45, 225) . COEF3(45, 225) . COEF4 (45, 225) , 2116 

C IC0EF5( 45, 225)  2117 

COMMON  /CRRRR  Y/  RHO(45, 225)  ,U(45, 225) , V(45, 225)  ,E(45, 225) , PHI  (45,  2118 

1225), BO(l.  1),BR(  1, 1),BZ( I,  l),DE(l,  1)  21 19 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 , JP1 , KP2.  JP2  2 1 20 

COMMON  /CBDUND/  DRNGLE(225) , IDBK(225) . IOBL  (225) , IS YM(4) , IRXI,  IOBQ  2121 

COMMON  /GRRVTY/  GC,  GR,GZ  21 22 

COMMON  /CTIME/  TIME,  DT.  DTT.  STRB.  MINDT,  MRXDT,  NCYCLE,  NMRX  2 1 23 

COMMDN/CGR I D/R(  45) , RD(45) , Z(225) , DR  (45) , DZ(225) , XD(45) , ZMIN,  RMIN,  D 2124 

1 ZO.  DRO,  IGRRPH(225) , NBOUND  2125 

COMMON  /CCRL  C/  BL , EMF,  MCRL  C,  NMRGN,  NTHRM,  I POT,  IDFN,  IPTSF  2 1 26 

COMMON  /CINI T/  RHOO,  VZ,  VR,  BO,  BRO,  BZO,  EO,  PH10,  PERMO,  VELOC,  RRFV,  PERM  2 1 27 

l.NVECT.NPDIM  2128 

COMMON/CMHD/INSJ( 225) , DVOL  T,  BRSEP,  DPOT,  SPRCE,  SPINSL , JPLMIN,  JPLMRX  2 1 29 

COMMON/CMR TRX/  RC0EF(225) , BCDEF(225) , CC0EF(225) , DC0EF(225) . SUB (225  2 1 30 

1 ) , DIRG(225) , SUP  (225) , CONST  (225)  2131 

PERL  *8  R.RD  2132 

ITER=0  2133 

10  CONTINUE  2134 

ITER=1TER+1  2135 

10=1  2136 

JD=1  2137 

DIFMRX=0.  2138 

C 2139 

C 2140 

C ******************************************************************  2141 

C **********  FOR  SDR,  OMEGR=l.  75.  FOR  GRUSS-SEIDEL,  0MEGR=1.0.  *****  2142 

C ******************************************************************  2143 

OMEGR=l.  75  2144 

DO  80  J=2,JP1  2145 

IX=KP2-I0BL  ( J)  +2  2146 

IY=IOBL  (J)-l  2147 

IFdX.LE.  l.OR.  IY.GE.KP2)  URITE(6,120)  2148 

DO  70  I = IX,  I Y 2149 

C IF(ITER.GT.l)  GO  TO  55  2150 

DR2=1./((R(I)-R(I-1))*DR(I))  2151 

DRl=l./((R(l+l)-R(l))*DR(I))  2152 

DBETR=(BETR( I.  J,  0, 1)-BETR(I.  J,  0,  -1))/DZ(J)  2153 

BBR=+DR1  +DR2  2154 

C ******************************************************************  2155 

UIPH=(U( I,  J)  +U( I+1,J)  )/2.  2156 

UJPH=(U( I,  J)+U( I,  J+l))/2.  2157 

UJMH=(U( I,  J)  +U( I,  J-l)  )/2.  2158 

VJPH=(V(I,J)  + V(I,J+l))/2.  2159 

VJMH=(V(I,J)  + V(I,J-l))/2.  2160 

BJPH=  (B(I,J)+B(I,J+1)  )/2.  2161 

BJMH=(B(I,J)+B(I,J-l))/2.  2162 

UIMH=  (U(I,J)+U(I-1,J)  )/2.  2163 

VIPH=(V(I,J)  + V(I+l.J))/2.  2164 

VIMH=(V(I,J)+V(I-l,J))/2.  2165 

BIPH=(B(I,J)+B(I+l,J))/2.  2166 

BIMH=(B( I,  J)+B(  1-1 , J))/2.  2167 

C 2168 

IF  (IPTSF.NE.2)  GO  TO  20  2169 

DC0ND1=(SIG( I,  J,  1,0, 1 ) -S I G( I,  J,  -1,0. 1 ))/(DR(I)*SIG(I.J.O.O.  D)  2170 

DC0N02=(SIG( I,  J.0, 1. 1 )-SIG( I,J,0.  -1. 1 ) )/(DZ(J)*SIG( I . J.O.O.  D)  2171 

R=(DRl+l./(2.  *DR( I ) )*(DC0ND1  -BETR( I,  J,  0, 0)*DC0ND2-DBETR))  2172 

C=(DR2-l./(2.  *DR( I ) )*(DCDND1-BETR( I,  J,  0. 0) *DC0ND2-DBE TR) ) 2 1 73 

D=( (U(I.  J)*B(I.  J)-BETR( I,  J,  0 , 0)*V(l,  J)*B(I,  J))*DC0ND1  - (UIPH*BIPH-B  2 1 74 

IETR(1,  J.  1,0)*VIPH*BIPH-UIMH*BIMH+BETR(I.  J.  -1, 0)*VIMH*BIMH)/DR(I))  2 1 75 
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GO  TD  30  2176 

C 2177 

20  DC0ND1=(SIG(I.  J.  1.0. 0)-SIG(I.  J.-1.0 . 0) )/(DR( I )xSIG( I . J.  0. 0.0))  2178 

DC0ND2=(5IG( I,  J.0.1. 0)-5IG(I,  J.  0.  -1.0))/(DZ(J)mSIG(I.  J.  0. 0.0))  2179 

R=(DR1+1.  /(2.  mDR(I))m(-DCONDl-BETR(I.  J.  0. 0)*DCDND2+DBE TR) ) 2180 

C=(DR2-1.  /(2.  *0R(I))*(~DCQND1  -BETR(I.  J.  0.  0)>kDC0ND2+DBE TR) ) 2181 

D=-SIG(I.  J.  0. 0. 0)*(BJPH*UJPH-BJMH*UJMH)/DZ(J)  2 1 82 

C 2183 

30  DZ1=1./((Z(J+1)-Z(J))*DZ(J))  2184 

DZ2-l./((Z(J)-Z(J-l))mDZ(J))  2185 

DBETR-(BETR( I.  J.  1.0)-BETR(1.J.-1.0))/DR(I)  2186 

BP=+DZ1+DZ2  2187 

C 2188 

IF  (IPT5F.NE.2)  GO  TD  40  2189 

DC0ND1=(5IG( I.  J.  0. 1.  D-SIGd.J.O.  -1.  l))/(DZ(J)xSIG(I.J.O.O. 1))  2190 

DCDND2=(SIG(I.  J.  1.0.1  )-SIG< I,  J, -1.0.1  ))/<DR(I)*SIG<I.J. 0,0.1))  2191 

RP=(DZ1+1 . /(2.  *DZ (J))*( DCOND1 +BETR (I.  J.  0, 0)*DC0ND2+DBETR) ) 2192 

CP=(DZ2-1 . /(2.  mDZ(J))m(DCOND1  +BETR(I.  J,  0. 0)*DC0ND2+DBETR) ) 2193 

DP=  (- ( Vd.  J)*B(I,  J)  +BETR( I.  J . 0. 0)*U(I.  J)*B(I.  J))*DCQND1  + ( VJPH»BJPH  2 1 94 

1+BETR(I.  J.  0. 1 ) xUJPHxBJPH-  VJMHxBJMH-BE TR( I.  J.  0.  -1  )*UJMH*BJMH)/DZ(J)  2195 

2)  2196 

GO  TO  50  2197 

C 2198 

40  DC0ND1=(5IG(  I.  J.0.1. 0)-5IG(I.  J.  0.  -l.O))/(DZ(J)mSIG(I.  J.  0. 0.0))  2 199 

DC0ND2=  (5 IG( I.  J.  1.0. 0)-SIG( I.  J.-l.0. 0))/(DR(l)m5IGd.  J.  0. 0. 0))  2200 

RP=(DZl+l./(2.  xDZ(J))*(-DCONDl+BETR(l.  J.  0. 0)*DCOND2-DBETR))  2201 

CP=(DZ2-l./(2.  *DZ(J))*(-DCDND1+BETR(I.  J.  0. 0)*DC0ND2-DBETR) ) 2202 

DP=-51G( I.  J.  0. 0 . 0)*(BIPH*VIPH-BIMH*VIMH)/DR(I)  2203 

C 2204 

50  CONTINUE  2205 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMM  2206 

C COEF1 CDEF5  RRE  RRRRYS.  WHICH  WHEN  USED.  WILL  REDUCE  THE  2207 

C CONVERGENCE  TIME  (CP)  BY  R FRCTDR  OF  3 DR  4 RT  THE  EXPENSE  OF  2208 

C ROD I TIONRL  CORE.  2209 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXX  2210 

C COEF1 (I.  J)=( -D-DP) / ( BBR+BP)  22 1 1 

C C0EF2C I.  J)=R/(BBR+BP)  2212 

C COEF3( I.  J)=RP/(BBR+BP)  2213 

C COEF4 (I,  J) =C/( BBR+BP)  2214 

C CDEF5<I.J)=CP/(BBR+BP)  2215 

55  IF  (I.  EQ.  IX.  OR.  I.  EQ.  I Y.  DR.  J.  EQ.  2.  OR.  J.  EQ.  JP1 ) CRLL  BNDPOT  (I.J)  2216 

OL  DPHI=PHI  (I,  J)  2217 

PHI (I.  J)=<-D-DP+R*PHia+l.J)+RP*PHI(I.  J+l)+C*PHId-l,  J)+CP«PHI(I,  J 2218 

1-1  ))/(BBR+BP)  2219 

C PHI  (I.  J)=C0EF1  (I.  J)+C0EF2(I , J)*PHI  (1+1,  J)  +C0EF3(  I,  J)*PHI(I.J+1)+  2220 

C 1 COEF4  (I.J)  >kPHI  (1-1.  J)  +COEF5  (I.J)  *PHl  (I.J-1)  2221 

PHId,  J)  =PHI( I,  J)*OMEGR+  (1.  -OMEGR)*OLDPHI  2222 

DIFF=RB5 ( PHI ( I , J)-OLDPHI )/(5.  *SIG(I,  J.  0. 0. 0)*U(I,  J)*B(I . J))  2223 

IF  (DIFF.LE.DIFMRX)  GO  TO  60  2224 

ID=I  2225 

JD=J  2226 

OLDIE=DLDPHI  2227 

GOOD  I E =PHI  (I.J)  2228 

DIFMRX=DIFF  2229 

60  CONTINUE  2230 

70  CONTINUE  2231 

80  CONTINUE  2232 

C 2233 

DO  100  J=2,  JP1  2234 

/ 1 =KP2- IOBL ( J)  +2  2235 

I2=I0BL(J)-1  2236 

DO  90  1=11.12  2237 

IF  (LEO.  II.  DR.  I.  EQ.  12.  OR.  J.  EQ.  2.  OR.  J.  EQ.  JPl ) CRLL  BNDPOT  (I.J)  2238 

90  CONTINUE  2239 
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100  CONTINUE  2240 

WRITE  (6,110)  ID.JD.DIFMRX.ITLR  2241 

IF  ( ITER.  GT.  100)  RETURN  2242 

IF  (DIFMRX.  GT. . 0010)  GO  TO  10  2243 

RETURN  2244 

C 2245 

C 2246 

110  FORMRT  (35H  ELECTRICRL  CONVERGENCE  ....RT  CELL, 2( IX,  13),  15H  OIFFE  2247 

1 RENCE  = , El  2.  4, 3X,  1 5HF0R  I TERR T ION  , 13)  2248 

120  FORMRT (85H  ELECTRODES  CRNNDT  LIE  ON  THE  BOUNDRRY. . . . . REDUCE  "RD  2249 

1 S"  BY  1 OR  2 "DRO  S"  ) 2250 

END  2251 

SUBROUTINE  CURRNT  (JZ,  JR.  EZ.  ER,  UU,  VV,  I,  J,  IHRLF,  JHRLF)  2252 

C 2253 

C 2254 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2255 

C COMPUTES  ELECTRIC  FIELD  RND  CURRENT  BRSED  ON  THE  STRERM  CURRENT  2256 

C FUNCTION,  POTENT  I RL  OR  INDUCED  MRGNETIC  FIELD  2257 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2258 

C 2259 

C 2260 

COMMON  /CRRRRY/  RHO(45, 225) . U(45. 225) . V(45, 225) . E(45 , 225) . PHI (45,  226 1 

1225) . BD( 1 , 1 ) ,BR(1 . 1 ) , BZ(1 . 1 ) , DE(1 , 1 ) 2262 

COMMON  /CMESH/  KMRX.  JMRX,  KP1 , JP1 . KP2.  JP2  2263 

COMMON  /CBOUND/  DRNGLE(225) . I0BK(225) , IOBL  (225) . ISYM(4).  IRXI.  IOBQ  2264 

COMMON  /GRRVTY/  GC.GR.GZ  2265 

COMMON  /CT I ME/  TIME,  DT.DTT.STRB,  MINOT.  MRXDT.NCYCLE.NMRX  2266 

COMMON/CGRI D/R (45) , RD(45) , Z(225) . DR (45) , DZ(225) , XD(45) , ZMIN,  RMIN.  D 2267 

1 ZO. DRO.  I GRRPH( 225) , NBDUND  2268 

COMMON  /CCRL C/  BL , EMF.  MCRL C,  NMRGN,  N THRM,  IPO T.  IDFN.  IPTSF  2269 

COMMON  /CINI T/  RHOO.  VZ,  VR.  BO,  BRO.  BZO,  EO,  PH  10,  PERMO.  VELOC.  RRFV,  PERM  2270 

l.NVECT.NPDIM  227 1 

COMMDN/CMHD/IN5J( 225) . DVOL  T,  BRSEP . DPOT,  SPRCE . SPINSL , JPLMIN.  JPLMRX  2272 

COMMDN/CMR TRX/  RC0EF(225) . BC0EF(225) , CC0EF(225) . DC0EF(225) , SUB(225  2273 

1 ) . DIRG(225) . SUP (225) , CONST (225)  2274 

RERLxB  R.RD  2275 

RERL  JR,  JZ  2276 

C 2277 

C 2278 

EZ=0.  2279 

ER-EZ  2280 

JZ-ER  2281 

JR=JZ  2282 

IF  (I.  EO.  1 . OR.  I.  EO.  KP2.  OR.  J.  EO.  1 . DR.  J.  EO.  JP2)  RETURN  2283 

IF  (EMF.EQ.l)  GO  TO  20  2284 

DPHIR=  ( (PHI  (I+l.J)  -PHI  (I-l.J))  +JHRL  F»  (PHI  (I+l.J+l)  -PHKI-l  ,J+1))+I  2285 

lHRLFx(PHI(I-l,J)-PHI(I,J)))/(R(I+l)-R(I-l)+JHRLFx(R(I-l)-R(I+l)+4.  2286 

2*DR(I))+IHRLF*(R(I-1)-R(I)))  2287 

DPHIZ=((PHI(I,J+l)-PHI(I.J-l))  + IHRLFx(PHI(I+l,J+l)-PHI(I+l.J-l))+J  2288 

lHRLFx(PHI(I,J-l)-PHl(I.J)))/(Z(J+l)-Z(J-l)+lHRLF*(Z(J-l)+Z(J+l)+4.  2289 

2*0Z(J)  ) + JHRLF x (Z(J-  l)-Z(J)))  2290 

IF  (IPTSF.EQ.2)  GO  TO  10  2291 

C XXMXXXXXXXmMXMXXXXXMXMXMXXXXIKmMnKXXXXXXXXHOKXXXMMXmXXXXXXXXMXXMHiKMXn*  2292 

C xxxxxxxxxxmxmxxxxmxM  CURRENT  STRERM  FUNCTION  xxmxxxxxxxmxxxxxxxxxx  2293 

C mXXXXXXMXXXXXXXMiinXHtHXXMXXMnKMXXXXMlfOKXXXmXXgnZKMXXXmXXXXXXXXMXMXXMXMM  2294 

JZ-DPHIR  2295 

JR=-DPHIZ  2296 

GO  TO  20  2297 

10  CONTINUE  2298 

MMKIKMKXMKKMMXMMHMKMIKMIKKMMKKKXXXnKIKXXlIKXmMIKMMXKXMXainlIXM/KXIKXMKXJKIKMXIKiKiKIK  2299 

tgXXMXXMXXXXXXXMXXHdHXXXXXXXX  POTENT  I RL  ***)K*X*)K*)K*iK*M*X*X*M*M*mMM)KM  2300 

JZ=SIG( I,  J.  IHRLF,  JHRLF,  l)*( (-DPHIZ+VV»(B( l+IHRLF,  J+ JHRLF)  +B(I,  J))/  2302 

12.  )-BETR( I,  J,  IHRLF,  JHRLF )m(-QPHIR-UU*(B( I + IHRLF,  J+JHRLF)+B( I . J))/2  2303 
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2.  ))  2304 

JR=5IG(I.  J.  IHRLF.  JHRLF,  1)*(BETR(I.  J.  IHRLF,  JHRLF)*(-DPHIZ+VV*(B( I+I  2305 

1HRLF.  J+ JHRLF)  +B( I.  J))/2.  )+(-DPHIR-UU*(B(  I+IHRLF.  J+JHRLF)+B( I , J))/2  2306 

2.))  2307 

20  CONTINUE  2308 

C MMMMmmKXXXX**XXXXXXXXMXXXXXXXX*X*XX*XXXXXXXXmXXXXX*MXMXXXXXXXM*MXM  2309 

C xxxxxxxxxxxxxxxxxxxxx  INDUCED  MRGNETIC  FIELD  xxxxxxxxxxxxxxxxxxxxx  2310 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmx  2311 

IF  (EMF.NE.l)  GO  TO  30  2312 

JZ=-l./PERMO*(B(l+l,J)-B(l-l.J))/(R(I+l)-R(I-l))  2313 

JR=l . /PERMO*(B( l,J+l)-B(I,J-l) )/(Z (J+l  )-Z(J-l ))  2314 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMMXX  2315 

c xxxxxxxxxxxx  COMPUTING  THE  ELECTRIC  FIELD  COMPONENTS  xxxxxxxxxxxxx  2316 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxmxxxxxxxxmxxxxxxxxxxxxx  2317 

30  EZ=(JZ+BETR(I.  J.  IHRLF.  JHRLF)«JR)/SIG<1.  J.  IHRLF.  JHRLF.  0)-VV*(B( I+IH  2318 

1RLF,  J+JHRLF)+B( I.  J))/2.  23 1 9 

ER=(JR-BETR(I . J.  IHRLF.  JHRLF)*JZ)/SIG< I.  J.  IHRLF.  JHRLF.  0)+UU*(B( I+IH  2320 

1RLF.  J+JHRLF)+B( I , J))/2.  232 1 

RETURN  2322 

END  2323 

FUNCTION  CUR( I.  J)  2324 

C 2325 

C 2326 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2327 

C COMPUTES  RRDIRL  CURRENT  INTO  RND  OUT  OF  ELECTRODES.  2328 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2329 

C 2330 

C 2331 

COMMON  /CRRRRY/  RHO<45. 225) . U(45. 225) . Z(45. 225) . E(45 . 225) . PHI  <45.  2332 

1225) , BO<  1 , 1 ).BR(  1 , 1 ).BZ( 1 . 1 ).DE(  1 , 1 ) 2333 

COMMON  /CMESH/  KMRX,  JMRX.  KP1 . JP1 . KP2 . JP2  2334 

COMMON  /CBOUNO/  DRNGLE (225),  IOBKC225 ).  IDBL  (225).  ISYM(4).  IRXI . IOBQ  2335 

COMMON  /GRRVTY/  GC,  GR.  GZ  2336 

COMMON  /CTIME/  TIME.  DT.  DTT.  STRB.  MINDT.  MRXDT.  NCYCLE.  NMRX  2337 

CDMMON/CGRID/R(  45) . RD(45) . Z<225) . DR  (45) . DZ(225) . XD(45) . ZMIN.  RMIN.  D 2338 

1ZO.  DRO.  I GRRPH( 225) . NBOUND  2339 

COMMON  /CCRLC/  BL . EMF.  MCRLC.  NMRGN.  NTHRM.  I POT.  IDFN.  IPTSF  2340 

COMMON  /CINI T/  RHOO.  VZ.  VR.  BO.  BRO.  BZO.  EO.  PHIO.  PERMO.  VELOC.  RRFV.  PERM  234 1 

1. NVECT.NPDIM  2342 

COMMDN/CMHD/INSJ( 225) . DVOL  T.  BRSEP.  DPDT.  SPRCE.  SPINSL . JPLMIN.  JPLMRX  2343 

COMMON/CMR TRX/  RC0EF(225) . BC0EF(225) . CC0EF(225) . DC0EF(225) . SUB (225  2344 

1).  D I RG( 225).  SUP (225),  CONST (225)  2345 

RERL*8  R.RD  2346 

PERL  JR.  JRR  2347 

C 2348 

C 2349 

UU=U(I.J)  2350 

VV=V(I.J)  2351 

IHRLF=0  2352 

JHRLF =0  2353 

DPHIR=( (PHI <1+1.  J) -PHI <1-1.  J))+JHRLFm(PHI(I+1  ,J+1) -PHI <I-1.J+1))+I  2354 

lHRLFx(PHI(I-l.J)-PHI<I.J)))/(R(I+l)-R<I-l)+JHRLF*(R<I-l)-R(I+l)+4.  2355 

2*DR( I ) )+lHRLF*(R< I -1 )-R( I ) ) ) 2356 

DPHIZ=( (PHI (I.  J+l) -PHI (I.  J-l ) )+ IHRLF* (PH I <1+1.  J+l) -PHI (I+1.J-1))+J  2357 

lHRLF*(PHKI.J-l)-PHI(I,J)))/(Z(J+l)-Z(J-l)+lHRLF*(Z(J-l)+Z(J+l)+4.  2358 

2*DZ(J)  ) +JHRL  F*  (Z(J- 1 ) -Z(J)  ))  2359 

JR=SIG(l.  J.  IHRLF.  JHRLF.  1 )*(BETR(I.  J.  IHRLF.  JHRLF )*(-DPHIZ+  VV*(B(I+I  2360 

IHRLF.  J+ JHRLF)  +B( I.  J))/2.  ) + ( -DPHIR-UU* <B< I + IHRL F,  J+JHRLF)+B( I.  J))/2  2361 

2. ))  2362 

JRR=JR  2363 

CUR=JRR  2364 

RETURN  2365 

END  2366 

SUBROUTINE  DFSN  2367 
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C 2368 

C 2369 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2370 

C CRLCULRTES  MRGNETIC  DIFFUSION  2371 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2372 

C 2373 

C 2374 

COMMON  /CRRRRY/  RHO(45, 225) , U(45. 225) , V(45. 225) , E(45, 225) , PHI  (45,  2375 

1225), BOd,  1),BR(1. 1),BZ(1, 1),DE(I,  I)  2376 

COMMON  /CMESH/  KMRX,  JMRX,  KPl , JR l . KP2,  JP2  2377 

COMMON  /CBOUND/  DRNGLE(225) , I0BKC225) , IOBL  (225) , ISYM(4),  IRXI,  IOBO  2378 

COMMON  /CRRVTY/  GC,  GR,  GZ  2379 

COMMON  /CTIME/  TIME .DT.DTT,  5TRB,  MINDT.  MRXDT.  NCYCLE.  NMRX  2380 

COMMON/CGRID/R(  45) , RD(45) , Z(225) , DR  (45) , DZ(225) , XD(45) , ZMIN,  RMIN,  D 238 1 

1Z0,  DRO,  IGRRPH(225) , NBDUND  2382 

COMMON  VCCRLC/  BL , EMF,  MCRLC,  NMRGN,  NTHRM,  IPDT,  IDFN,  IPT5F  2383 

COMMON  /CINI T/  RHOO,  VZ,  VR,  BO,  BRO,  BZO,  EO,  PH  10,  PERMO,  VELOC,  RRFV,  PERM  2384 

1,NVECT,  NPDIM  2385 

COMMDN/CMHD/IN5J( 225) , OVDL  T,  BR5EP,  DPOT,  SPRCE,  SPINSL , JPLMIN,  JPLMRX  2386 

COMMON/CMR TRX/  RCDEF(225) , BCDEF(225) , CC0EF(225) , DC0EF(225) , SUB (225  2387 

1 ) , DIRG(225) , SUP (225) , CONST (225)  2388 

RERL*8  R,  RD,  RIPH,  RIMH  2389 

2390 

2391 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXMXXXXXXXMXXXXX  2392 

MRGNETIC  RND  THERMRL  TRRNSPORT  2393 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXK  2394 

DO  100  IFIELD=i,3  2395 

DO  90  NOT  =1,  NMRGN  2396 

CRLL  BOUND  2397 

DO  30  J=2,  JP1  2398 

DO  30  1=2,  KPl  2399 

RIPH=(R(  I )+R(  I+l))/2.  2400 

RIMH=R (1-1) +DR ( I )/2.  2401 

Tl=DT/((R(l+l)-R(I))*DR(l)mR(I))/NMRGN  2402 

T2=DT/((R(l)-R(I-l))*DR(I)*R(I))/NMRGN  2403 

T3=DT/(  (Z(J+1)  -Z(J))>kDZ(J)  ) /NMRGN  2404 

T4=DT/(  (Z(J)  -Z(J- 1 ) ) *DZ(J)  ) /NMRGN  2405 

IF  (IFIELD.GT.  1)  GO  TO  10  2406 

DB1=(BD(  1+1 , J)/SIG(  I , J,  1,0,0)  -BO(  I,J)/SIG(I,J,  1,0,0))*RIPH  2407 

DB2=(B0(  1-1 , J)/SIG(I,  J,-1,0, 0) -BOd,  J)/SIG(I,  J,  -1, 0, 0))*RIMH  2408 

DB3=BO( I,  J+l )/SIG( I,  J,  0, 1,0) -BOd,  J)/SIG(I,  J,  0,1,0)  2409 

DB4=BO( I.  J-l  )/SIG( I,  J.O,  -1,0) -BO(I,  J)/SIG(I,  J.  0,  -1,0)  2410 

DEd,  J)=(T1*DB1  + T2*DB2+  T3*DB3+  T4*DB4)/PERM  24 1 1 

10  IF  ( IF  I ELD.  NE.  2 ) GO  TO  20  2412 

DBR1=(BR(  1+1 , J)/SIG( I , J,+1,0. 0)-BR(I,  J)/SIG(I,  J,  +1,0, 0))*RIPH  2413 

DBR2=(BR(  1-1 , J)/SIG(I , J,  -1,0, 0)-BR(I,  J)/SIG(I,  J,  -1,0, 0))mRIMH  2414 

DBR3=BR( I,  J+1)/S1G( I,  J,  0,  +1,0)-BR(I,  J)/SIG(I,  J,  0,  +1,0)  2415 

DBR4=BR(I,  J-l  )/SIG( I , J,  0, -1,0)-BR(I,  J)/SIG(I,  J,  0,  -1,0)  2416 

DEd,  J)=(T1«DBR1  + T2>xDBR2+  T3*DBR3+  T4mDBR4)/PERM  24 1 7 

20  IF  ( IFIELD.  NE.  3)  GO  TO  30  2418 

DBZ1=(BZ(  1+1 , J)/SIG( I , J,  +1,0, 0)-BZ( I.  J)/SIG(I,  J,  +1,0, 0))*RIPH  24 1 9 

DBZ2=(BZ(  1-1 , J)/SIG( I,  J,  -1,0, 0)-BZ(I,  J)/SIG(I,  J,  -1,0, 0))*RIMH  2420 

DBZ3=BZ( I • J+1)/SIG( I,  J,  0,  +1.0)-BZ(l,  J)/SIG(I,  J,  0.  +1,0)  242 1 

DBZ4=BZ( I,  J-l )/SIG( I , J,  0,  -1,0)-BZ(I,  J)/SIG(I,  J,  0,  -1,0)  2422 

DEd,  J)=(TlmDBZl  + T2*DBZ2+  T3*DBZ3+  T4*DBZ4)/PERM  2423 

30  CONTINUE  2424 

IF  ( IDFN.  EO.  2)  GO  TO  100  2425 

C 2426 

C XXXXXXXXXXXXXXXXXMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXMXXXXXX  2427 

C MRGNETIC  DIFFUSION  2428 

C MmMmMXXXMXXMMMXMMMXXXMXXXXXXXMMXXMXXXmXMXXXMMXXMMMMKMMXXmMMMmMXMMX  2429 

IF  ( IFIELD,  GT.l ) GO  TO  50  2430 

DO  40  1=2,  KPl  2431 
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DO  40  J=2.  JPl  2432 

B0( I,  J)=B0(1.  J)  +DE (I.J)  2433 

40  CONTINUE  2434 

50  IF  ( IF  I ELD.  NE.  2)  CO  TO  70  2435 

DO  60  1=2.  KP1  2436 

DO  60  J=2.  JPl  2437 

BR< I,  J)=BR( I.  J)+DE ( I,  J)  2438 

60  CONTINUE  2439 

70  IF  ( IF  I ELD.  NE.  3)  GO  TO  90  2440 

DO  80  1=2.  HP 1 2441 

DO  80  J=2.JP1  2442 

BZ( I.  J)  =BZ( I . J)  +DE (I.J)  2443 

80  CONTINUE  2444 

90  CONTINUE  2445 

100  CONTINUE  2446 

COLL  SECOND  (0)  2447 

C 2448 

IF  (IDFN.EQ.l)  GO  TO  140  2449 

C MM****m*MmmX*mM*XMMK***M)KMMK***XKMMMM*MmXM*MMX**M***m**MMM*mmm**XM  2450 

C THERMRL  CONDUCTION  2451 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2452 

DO  130  NDT=1 . NTHRM  2453 

COLL  BOUND  2454 

DO  110  1=2.  KP1  2455 

RIPH=(R( I )+R(I+l ))/2.  2456 

RIMH=(R(I)+R(I-1 ))/2.  2457 

DO  110  J=2.JP1  2458 

T=(E (I.  J)-0.  5*(U(I,  J)xx2+  V( I.  J)xx2))/CV( I.  J.  0. 0)  2459 

TP1=(E(I+1.  J)-0. 5x(U(  1+1  > J)**2+V(  1+1 . J)*x2) )/CV(  1+1 , J.0, 0)  2460 

TM1=(E(I-1.J)-0.5*(U(I-1.J)**2+V(I-1.J)**2))/CV(I-1.J.0,0)  2461 

TP2=(E(l.J+l)-0.Sx(U(I,J+l)**2+V(l.J+l)**2))/CV(I.J+l,0.0)  2462 

TN2=(E( I.  J-l)-0.  5*(U(I.  J-1)**2+V(I.  J-l )»*2))/CV< I,  J- 1.0.0)  2463 

T1=DT/<(R(I+1)-R<1))*DR(I)*R(I))/NTHRM  2464 

T2=0T/((R(I)-R(I-l))xDR(I)xR<I))/NTHRM  2465 

T3=DT/(  <Z(J+l)  -2(J))*DZ(J)  ) /NTHRM  2466 

T4=D  T/(  ( Z(J ) -Z(J~  1 ) ) mDZ(J)  )/N  THRM  2467 

DT1=( TP1  xCOND( I.  J.  +1,0)-T*C0ND(1.  J.  +1.0))»RIPH  2468 

D T2=  (TM1  *COND (I.J,  -1,0)-T*CDND(I.J.  -1,0))*RIPH  2469 

DT3=TP2*C0ND(1,  J.  0.  +1  )-T*CDND< I , J.  0.  + 1 ) 2470 

DT4=TM2xCOND<I,  J.  0.  -1  )-T*COND( I . J.  0 . -1)  2471 

DE  (I.  J)=(T1*DT1+T2&DT2+  T3*DT3+  T4*DT4)/RHO(I , J)  2472 

110  CONTINUE  2473 

DO  120  1=2. HP 1 2474 

DO  120  J=2,  JPl  2475 

120  E( I.J)=E(I,J)+DE(I.J)  2476 

130  CONTINUE  2477 

140  CONTINUE  2478 

RETURN  2479 

END  2480 

SUBROUTINE  TEMDIF  2481 

C 2482 

C 2483 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2484 

C CRLCULOTES  THERMRL  DIFFUSION  IMPLICITLY  2485 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2486 

C 2487 

C 2488 

COMMON  /CRRRRY/  RH0(45. 225) . U(45. 225) . V<45. 225) . E(45. 225) . PHI  (45.  2489 

1225) . BO(l , 1),BR(1,  l).BZ(l.  1 ).DE(1. 1 ) 2490 

COMMON  /CMESH/  KMRX.  JMRX.  KP1 . JPl . KP2.  JP2  249 1 

COMMON  /CBOUND/  DRNGLE(225) . IOBKC225) . IOBL  (225) . ISYM(4) . IRXI.  WBO  2492 

COMMON  /GRRVTY/  GC.GR.GZ  2493 

COMMON  /CTIME/  TIME.  DT.DTT.STRB.  MINOT.  MRXDT.NCYCLE.NMRX  2494 

COMMON/CGRID/R(  45) . RD(45) , 2(225) , DR  (45) . 02(225) , XD(45) . 2MIN,  RMIN.  D 2495 
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1Z0.  DRO.  IGRRPH(225) . NBOUND  2496 

COMMON  /CCRLC/  BL . EMF.  MCRLC.  NMRGN.  NTHRM.  I POT.  IDFN.  IPT5F  2497 

COMMON  /CINI T/  RH00.  VZ.  VR.  BO.  BRO.  BZO.  CO.  PHIO.  PERMO.  VFLOC.  RRFV.  PERM  2498 

l.NVECT.NPDIM  2499 

C0MM0N/CMHD/IN5J(225 ) . DVOL  T.  BR5EP.  DPOT.  SPRCE.  5PIN5L . JPLMIN.  JPLMRX  2500 

COMMON/CMR TRX/  RCOEF(225) . BC0FF(225) . CC0FF(225) . DC0FF(225) . SUB (225  2501 

1 ) . DIRG(225) . SUP (225) . CONS T(225)  2502 

RFRL *8  R.RD  2503 

C 2504 

C 2505 

DO  20  J=2.  JP1  2506 

DO  10  K=2.  KP1  2507 

I=K  2508 

ENERGY =E(K.  J)-0. 5*(U(K.  J)**2+  V(K.  J)**2)  2509 

DR1=1./((R(K+1)  -R(K)  )*DR(K))  2510 

DR2=l./((R(K)-R(K-l))*DR(f<)>  2511 

DCOND1  =l./( COND ( K,  J.  0. 0)*DZ(J))*(C0ND(K,  J.  0.  l)-COND(K.  J.O . -D)  2512 

RLPHR=RHO(K.  J)*CV(K.  J.  0. 0)/CDND(K.  J.  0. 0 ) 2513 

RCOEF( I-l)=DRl+l./(2.  *DR(K))*DCQNDl  2514 

BCOEF(  1-1)  =-DRl  -DR2-RL  PHR/D  T 2515 

CCOEF(  1-1  )=DR2-1 . /(2.  *0R(K))*DCQND1  25 1 6 

DCOEF ( I- 1)=-RL PHR/D T«ENERG Y/C V(K,  J.  0. 0)  2517 

10  CONTINUE  2518 

CRLL  KSUEEP  (J)  2519 

20  CONTINUE  2520 

DO  40  K=2.KP1  2521 

DO  30  J=2,  JP1  2522 

ENERGY =E(K,  J) -0. 5*(U(K,  J)**2+  V(K,  J)**2)  2523 

DZ1  =1 . /((Z(J+l)-Z(J))*DZ(J) ) 2524 

DZ2=1./((Z(J)-Z(J-1))*DZ(J))  2525 

DC0ND1=1 . /(CDND(K.  J.  0 . 0)*DR(K) )* ( COND(K . J.  1,0) -CDND(K.  J.-l.O))  2526 

RLPHR=RHO(K.  J)*CV(K,  J.  0, 0)/C0ND(K.  J.  0. 0)  2527 

RCOEF(J- 1 ) =DZ1  + 1 . /(2.  *DZ(J))*DC0ND1  2528 

BCOE F(J-l)  =-DZ  1 -DZ2-RLPHR/DT  2529 

CC0EF(J-l)=DZ2-l./(2.  *DZ(J))*DC0ND1  2530 

DCOEF  (J- 1 ) =-RL  PHR/D  TmENERG  Y/CV(K.  J.  0. 0)  253 1 

30  CONTINUE  2532 

CRLL  JSWEEP  (K)  2533 

40  CONTINUE  2534 

RETURN  2535 

END  2536 

SUBROUTINE  TRID  (M)  2537 

C 2538 

C 2539 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2540 

C SETS-UP  TRI-DIRGONRL  MRTRIX  FOR  IMPLICIT  INTEGRRTION  2541 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2542 

C 2543 

C 2544 

COMMON/CMR  TRX/  RCOEF(225).BCDEF(225) . CC0EF(225) . DCOEF  (225).  SUB(225  2545 

/ ; , DIRG(225) . SUP (225) . CONST (225)  2546 

C 2547 

N=M  2548 

NN=N-1  2549 

SUP  (1 ) =SUP ( 1 )/DIRG (1)  2550 

CONST  (1)=CDNST(  1)/D  IRG(l)  2551 

DO  10  1=2.  N 2552 

11=1-1  2553 

DIRG( I)=DIRG( I)-SUP( I I )»SUB( I)  2554 

IF  (I.EO.N)  GO  TO  10  2555 

SUP( I )=SUP( I )/OIRG( I)  2556 

10  CONST(l)=(CONST(l)-SUB(Il)mCONST(ll))/DlRG(I)  2557 

DO  20  K=I.NN  2558 

I=N-K  2559 
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CONST (I ) =CONST( I ) -SUP ( I )»CDNST< I + 1 ) 2560 

20  CONTINUE  2561 

RETURN  2562 

END  2563 

SUBROUTINE  KSWEEP  (J)  2564 

C 2565 

C 2566 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2567 

C IMPLICIT  SWEEP  IN  THE  K DIRECTION  2568 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2569 

C 2570 

C 2571 

COMMON  /CRRRRY/  RHD(45. 225) , U(45 , 225) , V(45, 225) , E(45. 225) , PHI (45,  2572 

1225) , BO(l , 1),BR(1, 1),BZ(1, 1),  DEd ,1)  2573 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 , JP1 , KP2,  JP2  2574 

COMMDN/CMR TRX/  RC0EF(225) , BC0EF(225) , CCDEF(225) . DC0EF(225) , SUB<225  2575 

1 ) , DIRG( 225) , SUP (225) , CONST (225)  2576 

COMMON  /CCRLC/  BL , EMF,  MCRL  C,  NMRGN,  NTHRM,  I POT,  IDFN,  IPTSF  2577 

C , 2578 

C 2579 

IF  (IDFN.NE.l)  GO  TO  10  2580 

DCOEF(  1 ) =DCOEF(  1 ) -CCOEFd  )*PHI(1.  J)  258 1 

DCOEF ( KMRX )=DCOEF( KMRX )-RCOEF( KMRX )*PH I (KP2,  J)  2582 

GO  TO  20  2583 

10  ENER1  =E(  1 , J)-0.5*(U(  1 • J)**2+  Vd,  J)**2)  2584 

ENER2=E(KP2,  J)  -0.  5*(U(KP2,  J)**2+  V(KP2,  J)**2)  2585 

DCOEF ( 1 )=DCOEF( 1 )-CCOEF( 1 )*ENER1/CV( 1 , J,  0, 0)  2586 

DCOEF ( KMRX )=DCOEF( KMRX)  -RC0EF(KMRX)*ENER2/CV(KP2,  J,  0, 0)  2587 

20  CONTINUE  2588 

DO  30  K=1,KMRX  2589 

INDEX =KMRX -K+l  2590 

DIRG( INDEX) =BCDEF(K)  2591 

SUP ( INDEX )=CCOEF(K)  2592 

SUB ( INDEX )=RCOEF(K)  2593 

CDNST( INDEX) =DCOEF(K)  2594 

30  CONTINUE  2595 

CRLL  TRID  (KMRX)  2596 

DO  40  K=1,KMRX  2597 

L=KMRX-K+1  2598 

DE(K^1 , J)=CDNST(L)  2599 

40  CONTINUE  2600 

RETURN  2601 

C 2602 

END  2603 

SUBROUTINE  JSWEEP  (K)  2604 

C 2605 

C 2606 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2607 

C IMPLICIT  SWEEP  IN  THE  J DIRECTION  2608 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2609 

C 2610 

C 2611 

COMMON  /CRRRRY/  RHO(45, 225),  U(45, 225),  V(45, 225),E(45, 225),  PHI (45,  26 1 2 

1225),  BO(l,l),BR(l,l).BZ(l.l),  DEd,  1)  2613 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 , JP1 , KP2,  JP2  26 1 4 

CDMMON/CMR TRX/  RC0EF(225) , BC0EF(225) , CC0EF(225) , DCOEF (225) , SUB(225  26 1 5 

1 ) , DIRG(225) , SUP (225) , CONS T(225)  2616 

COMMON  /CCRLC/  BL , EMF,  MCRLC,  NMRGN,  NTHRM,  IPOT,  IDFN,  IPTSF  26 1 7 

C 2618 

C 2619 

IF  (IDFN.NE.l)  GO  TO  10  2620 

DCOEF ( 1 ) =DCOEF( 1 ) -CCOEF( 1 )»PHI (K,  1)  2621 

DCOEF ( JMRX )=DCDEF( JMRX) -RCOEF(JMRX)mPHI (K,  JP2)  2622 

GO  TO  20  2623 
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10  ENER1=E(R.  l)-0.  5*<U(K,  1)**2+V(K,  I)mm2)  2624 

ENER2=E(R.  JP2)  -0. 5* (U(R.  JP2)mm2+  VCR.  JP2)mm2)  2625 

DCOEFC 1 )=DC0EF(  1 )-CC0EF<  1 )mENERl/CV(K,  1.0.0)  2626 

DCDEF(JMRX) =DCOEF(JMRX) -RCOEF(JMRX) *ENER2/CV(K,  JP2. 0.0)  2627 

20  CONTINUE  2628 

DO  30  J=1.JMRX  2629 

INDEX- JMRX- J+ 1 2630 

DIRCC INDEX) =BC0EF(J)  2631 

SUP  ( INDEX) =CC0EF(J)  2632 

SUB ( INDEX )=RC0EF(J)  2633 

CONST ( INDEX )=DCDEF(J)  2634 

30  CONTINUE  2635 

CRLL  TRIO  (JMRX)  2636 

DO  40  J=l,  JMRX  2637 

L=JMRX-J+1  2638 

DECK.  J+l )=DE(K.  J+D+CDNSTCL)  2639 

40  CONTINUE  2640 

RETURN  2641 

END  2642 

FUNC TION  GRMMC I.  J)  2643 

2644 

2645 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2646 

DEFINES  SPECIFIC  HERT  RRTID  2647 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2648 

2649 

2650 

GRMM=1 . 15  2651 

RETURN  2652 

END  2653 

FUNCTION  RGRSCP.  T)  2654 

2655 

2656 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2657 

CRS  CDNSTRNT  2658 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2659 

2660 

2661 

RGRS=4. 184m  10.  mm  7m 1 . 987/22.  2662 

RETURN  2663 

END  2664 

FUNCTION  CVCI.  J.  IHRLF.  JHRLF)  2665 

2666 

2667 

COMMON  /CCRL  C/  BL . EMF.  MCRL  C.  NMRGN.  NTHRM.  I POT.  IDFN.  IPTSF  2668 

DEFINES  SPECIFIC  HERT  RT  CDNSTRNT  VOLUME  2669 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2670 

2671 

2672 

CV=1.67ml0.mm7  2673 

RETURN  2674 

END  2675 

FUNCTION  CPCP.  T)  2676 

2677 

2678 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2679 

DEFINES  SPECIFIC  HERT  RT  CDNSTRNT  PRESSURE  2680 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2681 

2682 

2683 

H=-0. 22016E8-0. 27793E2*P+0. 2331 4E-4mPm*2+  (-0. 16712E5+0. 28226E-lmP-  2684 

10. 23821E-7*P**2)*T+(0.  44858E1-0.  71655E-S*P+0. 60721E-1  lmPmm2)mTmm2  2685 

CP-H/T  2686 

RETURN  2687 
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END  2688 

FUNCTION  VISd.J,  IHRLF.JHRLF)  2689 

C 2690 

C 2691 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2692 

C COMPUTES  LRMINRR  VISCOSITY  2693 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2694 

C 2695 

C 2696 

COMMON /CS TRSS/ TRRR ( 225) , TZZR(225),  T00R(225).  TRZRC225 ),  VISC.  VISCO  2697 

C 2698 

C 2699 

VISC=VISC0  2700 

VIS=VISCO  2701 

RETURN  2702 

END  2703 

FUNCTION  EDDY  (I,  J)  2704 

C 2705 

C 2706 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2707 

C EDDY  COEFFICIENT  FDR  TURBULENT  CRLCULRTION  2708 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2709 

C 2710 

C 2711 

EDDY=0.  2712 

RETURN  2713 

END  2714 

FUNC TIDN  COND(K,  J.  KHRLF.  JHRLF)  27 1 5 

C 2716 

C 2717 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  27 1 8 

C DEFINES  THERMRL  CONDUCTIVITY  2719 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2720 

C 2721 

C 2722 

COMMON  /CCRLC/  BL , EMF.  MCRLC.  NMRGN,  NTHRM.  I POT,  IDFN,  IPTSF  2723 

NTHRM=99999  2724 

C0ND=0.  2725 

RETURN  2726 

END  2727 

FUNCTION  SIG( I,  J,  IHRLF,  JHRLF,  IN)  2728 

C 2729 

C 2730 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  273 1 

C DEFINES  ELECTRICRL  CONDUCTIVITY  2732 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2733 

C 2734 

C 2735 

COMMON  /CCRL  C/  BL , EMF,  MCRL  C,  NMRGN,  NTHRM,  I POT,  IDFN,  IP  TSF  2736 

C 2737 

C 2738 

NMRGN=99999  2739 

SIG=10.**(-10)  2740 

RETURN  2741 

END  2742 

FUNCTION  BETR(I,  J,  IHRLF,  JHRLF)  2743 

2744 

2745 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2746 

DEFINES  HRLL  PRRRMETER  2747 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2748 

2749 

2750 

BETR=2. 0 2751 
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RETURN  2752 

END  2753 

FUNCTION  B( I.  J)  2754 

6=20000.  2755 

RETURN  2756 

END  2757 

SUBROUTINE  SECOND  (R)  2758 

RETURN  2759 

2760 

SUBROUTINE  PLOTTE  2761 

C 2762 

C 2763 

C WE  FOLLOWING  SUBROUTINES  EMPLOY  EITHER  STRNDRRD  CRLCOMP  2764 

C OR  STROMBERG-CRRLSON  PLOT  SUBROUTINES.  IF  CRLCOMP  ROUTINES  RRE  2765 

C USED  THEN  THE  SC  ROUTINES  MUST  BE  DUMMIED  OUT  (SEE  TECHNICRL  2766 

C REPORT)  OR  IF  THE  SC  ROUTINES  RRE  USED.  THE  CRLCOMP  ROUTINES  2767 

C RRE  VOIDED.  2768 

C 2769 

C 2770 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  277 1 

C PLOT  EXECUTIVE  ROUTINE  2772 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2773 

C 2774 

C 2775 

COMMON  /TPL  T/  TPL  TMI.  TPL  TMR.  TPL  TOE.  TPL  TDL . TZERO.  T 2776 

COMMON/P l/XGRRPH( 45) , ZGRRPH<225) . XVEL  T(45. 225) . ZVEL  T(45. 225) . 2777 

1SH( 45. 225) , DR(  45) , DZ(225) . NOLIN1  (45.225).N0LIN2(45.225).  I LOU.  2778 

1 IHIGH.  JLOW,  JHIGH.  XL  Oil.  XHIGH.  ZLOW.  ZHIGH.  ML  (10) . MDIM(IO) , NCYCLE.  ISC.  2779 

2DMN(525) .XLF (225) . YLF(225).  IPLOW.  IPHIGH.  JPLOW,  JPHIGH.  XPT(50. 11).  2780 

3YPT(50, 11)  2781 

COMMON  /P2/  L1.L2.  L3.  L 4.  MFRRMEdO . 2) . IPRRRM.  IRMIN(IO) . IRMRX(IO) . JR  2782 

lMIN(lO).  JRMRX (10),  MPODE (10),  IPRR(IO).  IKT,  IKM,  MFR , IPRRT.  NPTS,  FLOG  2783 

COMMON  /P3/  ZZ,  LI  1.LI2.L  13. L 14,  El . E2.  E3.  E4.  ISYM.  KL 1 . KL2.  KL3, KL4, PL  2784 

10.  IHMIN(20) . IHMRX(20) . JHMIN(20) . JHMRX(20) . MC0DE(20) . I HIST.  I CHECK.  M 2785 

20V  IE.  IDET.  I VEL . RPV,  IL INE.  MZ0DE(20) . I ON  (3 ) . ISPRT,  IZMIN(20) . IZMRX(20  2786 

3) . JZMIN(20) . JZMRX(20) , DUMVRR(40) . M,  I VX,  I VZ,  INUMM  2787 

C 2788 

C 2789 

C xxm**)***)*)*****!*)*)*)***)****)*****)*)************)**)*****#)**)**)***)*)*#*)****)*  2790 

10  CONTINUE  2791 

C **XXM*XJKmMMX*******Mm**M*MMX***M****MK*HM**MMM*MMM***mM*M***MKMMXm  2792 

C INI  T IRL IZR  T ION  2793 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2794 

IKT=0  2795 

LI 1=0  2796 

LI 3=0  2797 

MFR=0  2798 

PLOW.  2799 

KL1=0  2800 

KL2=0  2801 

KL3=0  2802 

KL4=0  2803 

c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2804 

C CRRD  INPUT  DESCRIBING  PLOTS  DESIRED  2805 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2806 

TZER0=0.  2807 

CRLL  RDPL T 2808 

REWIND  14  2809 

20  CONTINUE  2810 

IF  (IHIST.LT.  l.RND.  ISPRT.LT.  1)  WRITE  (6,150)  I VEL . MOVIE . ISC  2811 

IF  (IHIST.LT.  l.RND.  ISPRT.LT.  1)  CRLL  GRIDS  2812 

IF  (IHIST.  LT.l.  RND.  ISPRT.  LT.l.  RND.  T.  LE.  TPL  TMR)  GO  TO  20  2813 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2814 

C TIME  HISTORY  2815 
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C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXX  2816 

IF  ( IHIST.EQ.O > GO  TO  80  2817 

7/17-0  2818 

IKM=IHI5T  2819 

DO  70  KZ=1,  IHIST  2820 

MFR=MFRRME(KZ.  1)  2821 

7/17-7/17+7  2822 

770-7.  2823 

KL1=IHMIN(KZ)  2824 

KL  2= I HMRX  (KZ)  2825 

KL3=JHMIN(KZ)  2826 

KL 4 =JHMRX (KZ)  2827 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2828 

C KL1.KL2  RND  KL3.KL4  RRE  THE  CELL  INDICES  WERE  TIME  HISTORIES  2829 

C RRE  RECORDED  2830 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2831 

DO  60  IR=KL1.KL2  2832 

DO  60  JR=KL3,KL4  2833 

TZERO=- TPL  TOE  2834 

I CODE =MCODE (KZ)  2835 

REV  I NO  14  2836 

KL=1  2837 

PRINT  160,  KL1.KL2.KL3.KL4.  ICODE  2838 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2839 

C BLOCKED  DRTR  DN  UNIT  14,  36  VRR1RBLES  (TRBLE  C.  1 OF  TECHNICRL  2840 

C REPORT)  X 14  CELLS  2841 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2842 

30  RERD  (14)  (DMN(KX),KX=1 ,504),  T,NCYCLE,DT  2843 

DO  40  MX=1,14  2844 

IND=(MX-l)x36  2845 

IR=DMN(  IND+1)  2846 

JR=DMN(  IND+2)  2847 

DUMVRRL  21)=DMN(  IND+21 ) 2848 

IC=IND+ICODE  2849 

DUMVRR( ICODE ) =DMN( I C)  2850 

IF  (T.LT.  TPLTMI)  GO  TO  30  2851 

IF  (IR.  EO.  IR.  RND.  JR.  EQ.  JR)  XLF(KL  )=DUMVRR(21 ) 2852 

IF  ( IR.  EO.  IR.  RND.  JR.  EQ.  JR)  YLF(KL)=DUMVRR( ICODE)  2853 

IF  ( IR.  EQ.  IR.  RND.  JR.  EQ.  JR)  KL=KL+1  2854 

IF  (IR.  EQ.  IR.  RND.  JR.  EQ.  JR)  PRINT  180,  IR,  JR,KL,XLF(KL-1),YLF(KL-1 ) 2855 

40  CONTINUE  2856 

IF  (T.LT.  TPLTMR)  GO  TO  30  2857 

TZERO=T  2858 

REI/IND  14  2859 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2860 

C GRID  IS  RLSO  PLOTTED  2861 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  2862 

50  CRLL  GRIDS  2863 

IF  (T.LT.  TZERO)  GO  TO  50  2864 

ICH=KL  -2  2865 

N1P=0  2866 

CRLL  LRBPLT  ( ICH,  ICODE,  IR,  JR,  NIP)  2867 

60  CONTINUE  2868 

70  CONTINUE  2869 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2870 

C SPRTIRL  DISTRIBUTION  2871 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  2872 

80  IF  (ISPRT.EQ.O)  GO  TO  140  2873 

7/17-0  2874 

IKM=ISPRT  2875 

DO  130  1=1,  ISPRT  2876 

MFR=MFRRME (1,2)  2877 

7/17-7/17+7  2878 

IDIST=3  2879 
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IF  (MOIM  (I).  50. 2)  ID  I ST =2  2880 

PL 0=2.  2881 

KL1=IZMIN(  I)  2882 

KL2=IZMRX(I)  2883 

KL3=JZMIN(I)  2884 

KL4=JZMRX(I)  2885 

TZERD=0.  2886 

ICODE=MZDDE (I)  2887 

RE  KIND  14  2888 

KL=1  2889 

PRINT  170 , KL1  .KL2.KL3.KL4. 1 CODE.  IOIST  2890 

90  RERD  (14)  (DMN(KX) . KX=1 . 504) . T.  NC YCLE,  DT  2891 

IF  (T.LT.  TPLTMI)  GO  TO  90  2892 

SUM= T- TPL TDL - TZERO  2893 

IF  (SUM. LT.O.)  GO  TO  90  2894 

DO  100  MX=1,14  2895 

IND=(MX-1)*36  2896 

IR=DMN(  IND+1)  2897 

JR=DMN  ( IND+2)  2898 

IC=lND+lCODE  2899 

IDG=3  2900 

IF  (IOIST.  EO.  2)  IDG=4  2901 

DUM/RR(  I CODE)=DMN(  IC)  2902 

DUMVRR(  IDIST)=DMN(  IND+IDG)  2903 

IF  (IOIST.  EO.  3.  RND.  IR.  GE.KL1.  RND.  IR.  LE.  KL2.  RND.  JR.  EO.  KL3)  XLF(KL  )=  2904 

lDUMVRR(IDIST)  2905 

IF  ( ID  IS  T.  EO.  3.  RND.  IR.  GE.KL1.  RND.  IR.  LE.  KL2.  RND.  JR.  EO.  KL  3)  YLF(KL)=  2906 

1DUMVRR(  I CODE)  2907 

IF  (IDIST.EQ.3.RND.  IR.GE.KL1.RND.  IR.LE.KL2.RND.JR.EQ.KL3)  KL=KL+1  2908 

IF  (IOIST.  EO.  3.  RND.  IR.  GE.KL1.  RND.  IR.  LE.  KL2.  RND.  JR.  EO.  KL3)  PRINT  18  2909 

10.  IR,  JR.KL.  XLF(KL-1 ).  YLF(KL-l)  2910 

IF  (IOIST.  EO.  2.  RND.  JR.  GE.  KL3.  RND.  JR.  LE.  KL4.  RND.  IR.  EO.  KL  1 ) XLF(KL )=  2911 

lDUMVRR(IDIST)  2912 

IF  (ID  I ST.  EO.  2.  RND.  JR.  GE.  KL3.  RND.  JR.  LE.  KL  4.  RND.  IR.  EO.  KL  1 ) YLF(KL)=  29 1 3 

1DUMVRR(  I CODE ) 2914 

IF  ( IDIST.  EO.  2.  RND.  JR.  GE.  KL3.  RND.  JR.  LE.  KL4.  RND.  IR.  EO.  KL1)  KL=KL+1  2915 

IF  ( IDIST.  EO.  2.  RND.  JR.  GE.  KL3.  RND.  JR.  LE.  KL4.  RND.  IR.  EO.  KL1)  PRINT  18  2916 

1 0.  IR.  JR.  KL . XLF(KL -1).  YLF(KL -1)  2917 

IF  (IDIST.  EO.  3.  RND.  IR.  EO.  KL2.  RND.  JR.  EO.  KL3)  GO  TO  110  2918 

IF  (IDIST.  EO.  2.  RND.  JR.  EO.  KL4.  RND.  IR.  EO.  KL1)  GO  TO  110  2919 

100  CONTINUE  2920 

GO  TO  90  2921 

110  CONTINUE  2922 

TZERO=T  2923 

REKIND  14  2924 

120  CRLL  GRIDS  2925 

IF  (T.LT.  TZERO)  GO  TO  120  2926 

ICH=KL  -2  2927 

NX=MDIM( I)  2928 

CRLL  LRBPLT  (ICH.  I CODE.  IR.JR.NX)  2929 

KL=1  2930 

IF  (T.GT.  TPLTMR)  GO  TO  130  2931 

GO  TO  90  2932 

130  CONTINUE  2933 

140  CONTINUE  2934 

IF  (INUMM.EQ.l)  GO  TO  10  2935 

CRLL  PLOT  (X.  Y.  999)  2936 

RETURN  2937 

C 2938 

C 2939 

150  FORMRT  ( 10X,  100(  1H*). /.25X.25H  GRID  PLOT  . 7HIVEL  = . 2940 

13X.  13. 5X,  8HM0VIE  - , 3X.  13.  SX,  6HISC  - , 3X.  13.  /.  10X.  100(1M»))  294 1 

160  FORMRT  (10X.  100(1H») . /.  25X . 25H  TEMPDRRL  DISTRIBUTION  . A 2QX,  30H  2942 

1 KL  1.KL2.KL3.KL4, 1 CODE  . 6(2X.  13).  A 10X,  100(1H»))  2943 
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1 70  FORMRT  (10X.  100UH*),/,  25X,  25H  SPRTIRL  DISTRIBUTION  . /.  20X,  30H 
1 KL1.  KL2,  KL3.  KL4, 1 CODE.  ID  I ST.  6(2X.  13).  /.  10X.  100(1H*)) 

180  FORMRT  (21 H IR.  JR.  ML . XLF.  YLF  , 3(2X.  13) . 2(1X.  El 2.  4)) 

END 

SUBROUTINE  RDPL  T 
C 
C 

c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C RERDS  CRRD  INPUT  FDR  PLOTTING 

c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

c 

COMMON  /COUTP/  TI  TLE(IS) . KPDEL . JPDEL . NPLOT.  NPRN.  NDIGPL . NGRRPH 
COMMON  /TPL  T/  TPL  TMI.  TPL  TMR.  TPL  TDE.  TPL  TDL . TZERO.  T 
COMMON/P l/XGRRPHC 45) . ZGRRPH(225) . XVEL  T(45. 225) . ZVEL  T(45. 225) . 
1SH(45. 225) . DR (45) . DZ(225) . NOL  INI  (45. 225) . NOL  IN2(45. 225) . I LOW. 

1 IHIGH.  JLOV.  JHIGH.  XLDV.  XHIGH.  ZLOV.  ZHIGH.  ML  (10) . MDIM(IO) . NCYCLE.  ISC . 
2DMN(525) . XLF  (225) . YLF  (225) . I PL  DU.  IPHIGH.  JPLOW.  JPHIGH.  XPT(50. 11). 
3YPT(50. 11) 

COMMON  /P2/  L 1 . L2.L3, L4.MFRRME ( 10, 2) . IPRRRM.  IRMIN(IO).  IRMRX(10).JR 
1MIN(  10) . JRMRX  ( 10) , MPDDE  ( 10) , IPRR(IO).  IKT,  IKM.MFR.  I PORT,  NPTS.  KLOG 
COMMON  /P3/  ZZ.  LI  1.LI2.L  13.  L 14.  El . E2.  E3.  E4,  ISYM,  KL 1 . KL2.  KL3.  KL4.  PL 
10,  IHMIN(20),  IHMRX  ( 20) . JHM I N(  20) . JHMRX  (20),  MCODE  ( 20) . IHIST.  I CHECK.  M 
20V IE.  IDET,  IVEL.RPV,  ILINE.MZ0DE(20) . IDN(3).  ISPRT.  IZMIN(20).  IZMRX(20 
3) , JZMIN(20) . JZMRX(20) . DUMVRR(40) , (/IV.  I VX,  I VZ.  INUMM 
DRTR  1KQ/0 / 


IK0=IKQ+1 

IF  (IKQ.EQ.l)  TZ-T 

KL1=0 

KL2=0 

KL3=0 

KL4=0 

I CHECK =0 

C *XXXXMUKMMM*XXXXXXX*X*XXXXX*XXXXXXX*XXX***X*»r*XXM**MJKlirM*Jtl)KMMMMXM)KmM 

C IHIST = NUMBER  OF  TIME  HISTORY  CRRDS 

C RPV=RRSTERS/UNIT  VELOCITY. CURRENT. ETC. 

C ISPRT=NUMBER  OF  SPRTIRL  CRRDS 

C IPRRRM=NUMBER  OF  PRRRMETERS  ON  SRME  PLOT 
C I L I NE= NUMBER  OF  LINE  CRRDS  (USUSRLLY  2) 

C IVEL  =0  .NO  VELOCITY  VECTORS IV EL  =1,  VELOCITY  VECTORS 

C MOVIE=0.  NO  MOVIE MOVIE=l.  MOVIE MOVIE=3,  CONTOUR  MRP 

C NCODE  - 1 (X)  - 2 (Z) 

C ISC=-1.  SHRDING ISC  = 0 NO  SHRDING 

C NSHRDE  - DEGREE  OF  SHRDING  ( 1=DRRKEST.  10=LIGHTEST) 

C ISYM=0  (NO  MIRROR  IMRGE),  =1  (MIRROR  IMRGE  RBOUT  X - RXIS)  =2  ( 

C MIRROR  IMRGE  RBOUT  Z - RXIS) 

C IDET=1 , JUST  GRID  WITHOUT  RXIR):  IDET -3, PUNCHED  CRRDS  OF  SHRDE/ 

C 3-D/CONTOUR  Z (SH)  VRLUES;  IDET=5,  3-D  PERSPECTIVE 

C MDIM=1  ( X-D1RE C T ION) . 2 ( Z-DIREC T IDN)  IN  SPRTIRL  DISTRIBUTION  PLOTS. 

C MCODE  RND  MZODE  ( TIME  / SPRTIRL  DISTRIBUTION  VRRIRBLES  ) SELECTED 

C FROM  BELOy TRBLE  C.  1 IN  REDC  TR-77-105 

C El=  MINIMUM  VRLUE  FOR  SHRDING.  E2=  MR XI MUM  VRLUE  FOR  SHRDING 

C LI1=  VRR1RBLE  TO  BE  SHRDED.  LI 2=  LINERR(O),  LOGRRITHMIC(l) 

C LI3  = 1 IF  HRLF  PLOT  IS  SHRDED  RND  HRLF  PLOT  IS  VECTORS 
C NOTE  THRT  SHRDING  IMPLIES  3-D  PERSPECTIVE  RND  CONTDUR  MRPPING  RLSO 
C 3 R 8 V 13  MRCH  18  TZZ  23  VI  SC  28  GRMMR  33  PHI 

C 5 DR  10  E 15  M 20  TRZ  25  BZ  30  - 35  COND(T) 

C 6 DZ  11  INT  16  BO  21  TIME  26  JR  31  TEMP  36  VORT 
C 7 U 12  C 17  TRR  22  DT  27  JZ  32  CV 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXMXXMXXMMMM 

WRITE  (6.170)  (TITLE(I),  1=1, 15) 

RERD  180.  MOVIE.  IHIST,  ISPRT . IPRRRM . IL INE.  ISC.  IDET.  ISYM.  IVEL.RPV,  IP 


2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 


324 


AE  DC-TR-77-1  05 


1RRT  3008 

PRINT  190.  MOVIE.  IHIST,  ISPRT.  IPRRRM.  I LINE.  ISC.  IDET.  ISYM.  IVEL.RPV.  / 3009 

1PRRT  3010 

RERD  200.  I LOW,  IHIGH.  JLOW,  JHIGH.  L1.L2.  L3.L4.  JPDEL . KPDEL  30 1 1 

IF  (JPDEL.  EQ.O)  JPDEL  =1  3012 

IF  (KPDEL.  EQ.O)  KPDEL=1  3013 

IF  (LI.  EQ.  0)  PRINT  220.  IL OW.  IHIGH.  JL OW.  JHIGH.  JPDEL . KPDEL  3014 

IF  (LI.  NE.  0)  PRINT  210.  ILOW.  IHIGH.  JLOW.  JHIGH.  Ll.L2.L3.L4  3015 

IF  (LI.  EQ.O)  L1=1LDV  3016 

IF  (L2.EQ.0)  L2=  IHIGH  3017 

IF  (L3.E0.0)  L 3= JLOW  3018 

IF  (L4.EO.O)  L4= JHIGH  3019 

DO  10  Kl=l,  IHIGH  3020 

DO  W Jl=l.  JHIGH  3021 

SH(Kl . J1  )=0.  3022 

NOL  INI  (K1,J1)=0  3023 

NDL  IN2(KI  ,J1)=0  3024 

10  CONTINUE  3025 

RERD  230.  ZLDW.  IHIGH.  XLOW.  XHIGH  3026 

PRINT  240,  ZLOW.  ZHIGH,  XLOW,  XHIGH  3027 

IF  (IPRRT.  EQ.  0)  GO  TO  20  3028 

RERD  (5,140)  I PLOW,  IPHIGH.  JPLOW.  JPHIGH,  NPTS  3029 

WRITE  (6.150)  IPLDW,  IPHIGH,  JPLDW,  JPHIGH.  NPTS  3030 

20  CONTINUE  3031 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3032 

C VECTORS  3033 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3034 

IF  (1VEL.EQ.O)  GO  TO  30  3035 

RERD  250,  1 VX.  IVZ.KLDG  3036 

PRINT  260.  I VX,  IVZ.KLDG  3037 

30  CONTINUE  3038 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3039 

C TIME  HISTORY  CRRDS  3040 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3041 

IF  (IHIST.  EQ.O)  GO  TO  50  3042 

PRINT  270  3043 

DO  40  1=1.  IHIST  3044 

RERD  290.  IHMIN(I).  IHMRX( I).  JHMIN( I).  JHMRX( I).  MCODE (I) , MFRRME (1.  1)  3045 

PRINT  280,  IHMIN(I).  IHMRX(I).  JHMIN(I).  JHMRX(l) .MCODE(I) . MFRRMEd,  1 3046 

1)  3047 

MCODE  (I ) =MCOOE  ( I ) 3048 

40  CONTINUE  3049 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3050 

C EL IMI NOTING  LINES  IN  GRIDS  3051 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMMXXXXM  3052 

50  IF  (IL  INE.  EQ.  0)  GO  TO  80  3053 

PRINT  300  3054 

DO  70  N=l.  I LINE  3055 

RERD  290,  ISM  IN,  ISMRX,  JSMIN,  JSMRX.NCODE  3056 

PRINT  310,  ISM  IN.  ISMRX,  JSMIN,  JSMRX.NCODE  3057 

DO  60  I=ILOW,  IHIGH  3058 

DO  60  J=JLOW,  JHIGH  3059 

IF  (NCDDE.  EQ.  1 . RND.  I.  GE.  ISM  IN.  RND.  I.  LE.  ISMRX.  RND.  J.  GE.  JSMIN.  RND.  J.  3060 

1LE.  JSMRX)  NOL  INI  (I,  J)=l  306 1 

IF  (NCDDE.  EQ.  2.  RND.  I.  GE.  ISMIN.  RND.  I.  LE.  ISMRX.  RND.  J.  GE.  JSMIN.  RND.  J.  3062 

1LE.  JSMRX)  N0LIN2( I,  J)=l  3063 

60  CONTINUE  3064 

70  CONTINUE  3065 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3066 

C SPRTIRL  DISTRIBUTION  CRRDS  3067 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm  3068 

80  IF  (ISPRT. EQ.O)  GO  TO  100  3069 

PRINT  320  3070 

DO  90  N=l.  ISPRT  3071 
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RERD  340,  IZMIN(N) , IZMRX(N) , JZMIN(N) , JZMRX(N) , MZDDE(N) , MFRRME (N,  2) 
PRINT  330,  IZMIN(N) , IZMRX(N) , JZMIN(N) , JZMRX(N) . MZODE(N) , MFRRME (N,  2 
1) 

MDIM(N)=2 

IF  (IZMIN(N).NE.IZMRX(N))  MDIM(N)=l 
MZDDE  (N)  =MZODE  ( N) 

90  CONTINUE 

C XmxXXXmXXXXXmXXXXXmxmXXXXmXXXXXXXmXXXXXXXXXXXXXXXXXXXXXXXXmXXXXXXX 

C SHRDING  ZONES 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
100  CONTINUE 

IF  (ISC. EO.-l)  RERD  350,  E1,E2,LII,L12,L  13 
IF  (ISC.  EO.-l)  PRINT  360,  El  ,E2,LI  1 ,LI2,LI3 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C PRRRMETRIC  PLOTS 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxmxxmx 
IF  (IPRRRM.EO.O)  GO  TO  120 
DO  110  N=l. IPRRRM 

RERD  290,  IRMIN(N) . IRMRX(N) . JRMIN(N) . JRMRX(N) , MPDDE(N) 

PRINT  160,  IRMIN(N) , IRMRX(N) , JRMIN(N) , JRMRX(N) , MPODE(N) 

110  CONTINUE 

120  RERD  370,  TPL  TMI,  TPL  TMR,  TPL  TOE,  TPL  TOL , INUMM 
IF  ( TPL  TMR.  G T.  TZ)  TPL  TMR=0. 99999m  TZ 
IF  ( TPL  TOL . G T.  TZ)  TPL  TOL  =0.  99999m  TZ 
IF  ( TPL  TOE.  GT.  TZ)  TPL  TDE=0.  99999m  TZ 
T=0. 

C xxxxmxxxxxxmmxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C PLOT  TIME  STEPS 

C xmxmmxmxmxmmxxxxxmmmxmmxmmmxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm 

C TZERO=- TPL  TOE 

TZER0=0. 

IF  ( TPL  TOL . NE.  0.  ) PRINT  380,  TPL  TMI,  TPL  TMR,  TPL  TOE.  TPL  TOL 
IF  (TPLTOL.NE.O.)  GO  TO  130 
PRINT  390,  TPL  TMI,  TPL  TMR,  TPL  TOE 
130  RETURN 

C 

C 

140  FDRMRT  (6(15)) 

150  FDRMRT  (3X.  5HIPL0H,  2X,  6HIPHIGH,  3X,  SHJPLOV,  2X,  6HJPHIGH,  4X.  4HNPTS,  /, 
14X,  13, 6X,  13, 5X,  13. 6X.  13,  4X.  13) 

160  FDRMRT  (32H  IRMIN  IRMRX  JRMIN  JRMRX  MPODE,  /,  5 ( 3X,  13) ) 

170  FDRMRT  ( 1H1 . ///.  15R4) 

180  FDRMRT  (915. 5X.  E10.  4. 15) 

190  FDRMRT  (78H  MOVIE  IHIST  ISPRT  IPRRRM  ILINE  ISC  IDE 
IT  ISYM  IVEL  RPV.10H  IPRRT  . /. 2X.  13. 8(5X,  13) . 2X, El 0.4, 2X 
2. 13) 


200  FDRMRT  (1015) 

210  FDRMRT  (55H  I LOU 

IHIGH  JLOy 

JHIGH 

LI 

L2  L3  L4 

1 , /,  2X.  8(  13, 5X)  ) 

220  FDRMRT  (47H  ILOy 

I HIGH  JLOy 

JHIGH 

JPDEL 

KPDEL  ,/.2X,6( 

1I3.5X)) 

230  FDRMRT  (4F10.  4) 

240  FDRMRT  (45H  ZLOV 

ZHIGH 

XLDV 

XHI GH,  /,  4 (2X,  E 1 

10.  4)) 

250  FORMRT  (315) 

260  FORMRT  (19H  IVX 

IVZ  KLOG,  /,  3 ( 3X,  13)  ) 

270  FORMRT  (39H  IHMIN  1HMRX  JHMIN  JHMRX  MCODE  MFRRME) 

280  FDRMRT  (6(3X,I3)) 

290  FORMRT  (615) 

300  FORMRT  (32H  ISM  IN  ISMRX  JSMIN  JSMRX  NCODE) 

310  FORMRT  (SOX.  13)) 

320  FORMRT  (39H  IZMIN  IZMRX  JZM1N  JZMRX  MZDDE  MFRRME) 
330  FDRMRT  (6(3X.  13)) 

340  FDRMRT  (615) 
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350  FOR  MOT  (2E1 0.  4 , 3<5X,  15))  31 36 

360  FDRMRT  (BOH  El  E2  LI l 3137 

1 .19HLI2  L 13,  /.  5X,  El  5. 5, 5X,  El  5.  5, 3(5X,  15, 5X))  31 38 

370  FDRMRT  (4F10.  4, 39X,  ID  3139 

380  FORMRT  (46H  TPLTMI  TPLTMR  TPLTDE  TPLTDL  ,/,4(2X,E  3140 

110.4),///)  3141 

390  FORMRT  (36H  TPL  TMI  TLPTMR  TPL  TOE  , /,  3(2X,  E10.  4) , ///)  3142 

END  3143 

SUBROUTINE  GRIDS  3144 

3145 

3146 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3147 

DRRUS  GRID,  INITIRTES  SHRD I NG,  MOPPING,  3-D  RND  TRRCER  PLOTS  3148 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3149 

3150 

3151 

COMMON  /CMESH/  KMRX,  JMRX,  KP1 , JP1 , KP2,  JP2  3 1 52 

COMMON  /COUTP/  TI  TLE(15) , KPDEL . JPDEL , NPLOT,  NPRN,  NDIGPL , NGRRPH  3 1 53 

COMMON  /TPL  T/  TPL  TMI,  TPL  TMR,  TPL  TOE , TPL  TDL , TZERO,  T 3154 

COMMON  /CBOUND/  DONGLE ( 225 ) , I0BK(225),  IOBL  (225),  IDYM(4),  IRXI,  IOBO  3155 

COMMON/CMHD/ INSJ( 225) . DVOL  T,  BRSEP,  DPDT.  SPRCE.  SPINSL . JPLMIN,  JPLMRX  3 1 56 

COMMON  /CCRLC/  BL , EMF,  MCRLC,  NMRGN.  NTHRM,  IPOT,  IDFN,  IPTSF  3 1 57 

COMMON/CGRID/R(  45) , RD(45) , Z(225) , FR(45) , FZ(225) , XF(45) , ZMIN,  RMIN,  D 3158 

/ ZO,  DRO, IGRRPH( 225) , NBOUND  3159 

COMMON  /CINI T/  RHOO.  VZ,  VR,  BO,  BRO,  BZO,  EO,  PH  10,  PERMO,  VELOC,  RRFV,  PERM  3 1 60 

l.NVECT.NPDIM  3161 

COMMON  /MOVE/  XX(4),YY (4)  3162 

C0MMDN/P1/XGRRPH( 45) . ZGRRPH(225) , XVEL  T(45, 225) , ZVEL  T(45. 225) , 3163 

15H(45, 225) , DR(45) , DZ(225) , NDL  INI  (45, 225) , NOL  IN2(45, 225) , ILOy,  3 1 64 

lIHIGH,JLOy,JHIGH,XLOy,XHIGH,ZLOy.ZHIGH,ML  (10),MDIM(10),NCYCLE,  ISC,  3165 

2DMN( 525) , XLF(225) , YLF(225) , IPLOy,  IPHIGH,  JPLOy,  JPHIGH,  XPT(50, 11),  3166 

3YPT(50, 11)  3167 

COMMON  /P2/  L 1 , L2, L3,L4,MFRRME (10, 2),  IPRRRM,  IRMIN(IO),  IRMRX(10),JR  3168 

1MIN(10) , JRMRX(IO) , MPODE(IO) , IPRR(IO) , IKT.  I KM,  MFR,  I PORT,  NPTS,  KLOG  3 1 69 

COMMON  /P3/  ZZ.LI  1.  LI 2,  L 13,  L 14,  El , E2,  E3,  E4.  ISYM,  KL 1 , KL2,  KL3,  KL4,  PL  3170 

10,  IHMIN(20) , IHMRX  (20) , JHMIN(20) , JHMRX(20) . MCDDE(20) , IHIST,  I CHECK,  M 3171 

20VIE,  IDET,  IVEL,RPV,  I L I NE, MZODE ( 20) , IDN(3).  ISPRT,  IZMIN(20).  IZMRX(20  3172 

3) , JZMIN(20) , JZMRX(20) , DUMVRR(40) , yy,  I VX,  I VZ.  INUMM  3 1 73 

DIMENSION  XGE0(45) . ZGEQ(225) . XP(2. 2) , YP(2. 2) . TP(2, 2) , LL  (200) . 3174 

IS (200) , TLRBEL  (102) . INSN0(225) . IZZ(225)  3 1 75 

RERL  *8  R.RD  3176 

EQUIVRLENCE  ( XGRRPH,  XGEO) , ( ZGRRPH , ZGEQ ) 3177 

DRTR  LL/200W/  3178 

DR  TO  TLRBEL/4H  R-.  4HRRDI . 4HRL  ,4H  Z-.  4HRXIR,  4HL  ,4H  DE.4HLTR  3179 

1-.4HR  , 4H  DE.4HLTR-.4HZ  ,4H  VEL,  4HOCIT.  4HY-Z  ,4H  VEL.4HOCIT.4  3180 

2HY-R  ,4H  PR,  4HESSU,  4HRE  , 4HT0TR,  4HL  EN.4HERGY.4H  INT,  4HERNR,  4HL  3181 

3EN,  4H  SPE.  4HED  S.  4HDUND.  4H  MR.  4HCH  N.  4H0  . 4H  0. 4HENSI,  4HTY  . 3182 

44H  , 4HMRSS,  4H  . 4H  MR,  4HGN  1. 4HND  0. 4H  , 4H  TRR,  4H  ,4H  3183 

5 ,4H  TZZ.4H  ,4H  ,4H  TOO,  4H  ,4H  ,4H  TRZ.4H  ,4H  3184 

6, 4H  ER  ,4H  ,4H  . 4H  EZ  ,4H  , 4H  VI.  4HSCDS,  4HI TY  . 4HMRGN.  4H  3185 

7 FLO,  4H  R . 4HMRGN,  4H  FLO.  4H  Z ,4H  CUR,  4HRENT.  4H-R  , 4H  CUR.  4HREN  3 1 86 

8T.  4H-Z  . 4H  C,  4HP/CV,  4H  . 4H  CON,  4HD  EL . 4HECTR,  4H  ,4H  ,4  3187 

9H  . 4HTEMP,  4HERRT.  4HURE  . 4HSP  H.  4HERT  , 4HVOL  , 4H  POT.  4HENTI,  4HRL  3 1 88 

* , 4HHRLL . 4H  PRR,  4HMTER.  4H  CON.  4HO  TH,  4HERML , 4H  VOR,  4HTICI.  4HTY  / 3189 

C 3190 

C 3191 

XX(3)=0.  3192 

XX(4)=1.  3193 

YY(3)=0 . 3194 

YY(4)=1.  3195 

IFRT=1  3196 

IBRCK=JHIGH  3197 

DO  10  KS~1 , JHI GH  3198 

10  INSNO(KS)=-l  3199 
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SHDBND=4  3200 

IF  (MFR.EO.l)  RETURN  3201 

IF  (IPOT.  EQ.  0)  GO  TO  20  3202 

ISP=5PIN5L +SPRCE  3203 

JIP=0  3204 

ICND=l  3205 

1 ELECT =5PRCE  3206 

20  CONTINUE  3207 

LIMIT=0  3208 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxx  3209 

C RERDING  FROM  UNIT  14  3210 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxmxmmmxxmxxmxxxxxaxxxxm  32 1 1 

30  RERD  (14)  ( DMN ( KX ) . KX= 1 . 504 ) , T.NCYCLE.DT  3212 

DO  60  L=l,  14  3213 

IF  (LIMIT. EQ.  I)  GO  TO  60  3214 

LR=(L-1)*36  3215 

I I=DMN(LR+1 ) 3216 

JJ=DMN(LR+2)  3217 

IF  ( JJ.EQ.I ) XGRRPH(II)=DMN(LR+3)  3218 

ZGRRPH(JJ) =DMN(L R+4)  3219 

XVEL  TUI,  JJ)=DMN(LR+6)  3220 

ZVEL  TUI,  JJ)=DMN(LR+  7)  322 1 

IF  (IVEL.NE.O)  X VEL  TUI,  JJ)  =DMN ( LR+ 1 VX)  3222 

IF  (IVEL.NE.O)  ZVEL  TUI,  JJ)=DMN(LR+IVZ)  3223 

DO  40  KR=3, 36  3224 

LRF=LR+KR  3225 

40  OUMVRR (KR) =DMN(L RF)  3226 

IF  ( OUMVRR ( 30) . EQ. 2.  ) N0LIN1(II,JJ)=2  3227 

IF  ( OUMVRR ( 30)  .EQ.2.)  NDLIN2U I , JJ)=2  3228 

IF  ( IPOT.EQ.  0)  GO  TO  50  3229 

IF  ( JJ.  L T.  JPLMIN.  DR.  JJ.  GT.  JPLMRX ) GO  TO  50  3230 

I PL  1 =KP2+ 1 - IGRRPH ( JJ)  3231 

I PL 2=IGRRPH( JJ)  3232 

IF  (II.NE.IPL2)  GO  TO  50  3233 

JIP=JIP+1  3234 

IF  (JIP.LE.  IELECT)  IN5ND(JJ)=ICND  3235 

IF  (JIP.GT.  IELECT)  IN5N0(JJ)=0  3236 

IF  (JIP.EQ.ISP)  JIP=0  3237 

IF  (JIP.EO.O)  ICND=ICND+1  3238 

50  CONTINUE  3239 

DR( 1 1 )=DUMVRR(5)  3240 

DZ ( JJ) =DUM VRR (6)  3241 

IF  UI.E0.L2.RND.JJ.EQ.L4)  LIMIT=1  3242 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX**  3243 

C DETERMINING  SHRDE,  CONTOUR  DR  3-0  VRRIBLE  VRLUE  (SH)  3244 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmx  3245 

IF  (ISC.NE.-l)  GO  TO  60  3246 

IF  (NOLIN1  ( II,  JJ).GT.  2)  GO  TO  60  3247 

IF  (LI2.E0.0)  DEL  TR=(E2-E1  )/10.  3248 

IF  (L 12.  EQ.  1 ) DEL  TR=  (RLOGlO(E2)-RLOGIO(El))/lO.  3249 

SHU  I,  JJ)=0.  3250 

IF  (LIl.NE.33)  OUMVRR (LI1)  =RBS ( OUMVRR ( LI1))  3251 

IF  (LI2.E0. 1 .RND.DUMVRR(LIl) .LE.  1 . .RND.LI1.NE.  33)  GO  TO  60  3252 

IF  (LI2.E0.0)  5H( II,  JJ)=(DUMVRR(LI  1 )-El )/DEL  TR  3253 

IF  (L 12.  EO.  1 ) SHU  I,  JJ)=(RLOGlO(  DUM  VRR  ( L II  ))-RL0G10(El  ))/DEL  TR  3254 

IF  (SH(  II,  JJ).  L T.  -2.  5)  SHU  I,  JJ)=-2.  5 3255 

IF  (SH(II,JJ).GT.  12.5)  SHUI , JJ)=12.  5 3256 

60  CONTINUE  3257 

xxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxM  3258 

CONTOUR  LIMITS  3259 

xxxxxxxxxxxxxxxxxxxxxxxxxmmxxxxxxxmxxxxxxxmxMxxmxxxmxmxxxxxxmxxxxx  3260 

IF  (LIMIT.  EQ.  0)  GO  TO  30  3261 

IF  ( ISC.NE.-l)  GO  TO  80  3262 

SU)=E1  3263 
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DO  70  KM=2.200  3264 

S(KM)=S(KM-1 ) +DEL  TR/4.  3265 

70  CONTINUE  3266 

80  CONTINUE  3267 

/ T0P=0  3268 

IHRLF=L2/2  3269 

IF  (XGRRPH(IHRLF).GT.O.)  I TOP=l  3270 

IF  (T.L  T.  TPL  TNI)  RETURN  327 1 

SUM- T- TPL TOE- TZERO  3272 

IF  (IHIST.LT.  l.RND.  ISPRT.LT.  1. RND.SUM.LT. 0.  ) RETURN  3273 

IF  (IHIST.LT. I. RND.ISPRT.LT. I)  TZERO=T  3274 

IF  (IHIST.  CE.  I . RND.  T.  L T.  TZERO)  RETURN  3275 

IF  (ISPRT.  GE.  l.RND.  T.  L T.  TZERO)  RETURN  3276 

IBRCK-0  3277 

IFRT-0  3278 

IF  (IOBQ.EQ.O)  GO  TO  170  3 279 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3280 

C DEFINING  SOLID  BDUNDRRY  RND  ELECTRODES  FOR  GRID  WENT IDICRT ION  3281 

C MXXxxxxxxmxmxxxxxmxmxxxxmxxmmmMxxmxmmmmxxmMMXxxxxxMxmxxMxxmmMMxmmM  3282 

DO  120  J5=JL0V,  JHIGH  3283 

K5=IGRRPH(J5)  3284 

K0BL=KP2+1-IGRRPH(J5)  3285 

IF  (K5.GT.L2)  GO  TO  120  3286 

IF  (K5.  LE.L2.  RND.  NVECT.  EO.  2)  NOLIN1  (KOBL,  JS)=5  3287 

IF  (K5.LE.L2)  NOLIN1  (K5,  J5)=5  3288 

IF  (K5.EQ.L2)  GO  TO  100  3289 

KIX=K5+1  3290 

DO  90  KX=KIX.  IHIGH  329 1 

LX=KP2+1-KX  3292 

IF  (J5.  EO.  JLOU.  DR.  J5.  EO.  JHIGH)  GO  TO  90  3293 

IF  (NOLIN1  (KX,J5+1).EQ.  1 .OP.NOLIN1  (KX,J5-1  ).EO. 1)  NOLIN1  (KX.J5)=S  3294 

IF  (NOL  INI  (KX,  J5+D.EQ.  1 . RND.  NVECT.  EO.  2l  NOL  INI  (LX,  J5)=5  3295 

IF  (N0LIN1(KX,J5-1).E0.  l.RND.  NVECT.  EO.  2)  NOLIN1  (LX,  J5)=5  3296 

90  CONTINUE  3297 

100  CONTINUE  3298 

IF  (IPOT.EQ.O)  GO  TO  110  3299 

IF  (J5.  GE.  JPLMIN.  RND.  J5.  LE.  JPLMRX.  RND.  INSNO(JS) . EO.  0)  NOL  INI  (K5,  J5  3300 

1)=3  3301 

IF  (J5.  GE.  JPLMIN.  RND.  J5.  LE.  JPLMRX.  RND.  INSN0(J5) . EO.  0)  NOL  INI  <7 (5,  J5  3302 

1)=5  3303 

IF  (J5.  GE.  JPLMIN.  RND.  J5.  LE.  JPLMRX.  RND.  INSN0(J5) . EO.  0)  NOL  INI  (K5,  J5  3304 

1)=5  3305 

IF  (J5.  GE.  JPLMIN.  RND.  J5.  LE.  JPLMRX.  RND.  INSN0(J5) . NE.  0)  NOL  INI  (K5,  J5  3306 

1)=4  3307 

IF  (NVECT.  NE.  2)  GO  TO  110  3308 

IF  (J5.  GE.  JPLMIN.  RND.  J5.  LE.  JPLMRX.  RND.  INSND(J5) . EO.  0)  NOL  INI  (HOBL , 3309 

1J5)=3  3310 

IF  (J5.  GE.  JPLMIN.  RND.  J5.  LE.  JPLMRX.  RND.  INSN0(J5) . EO.  0)  NOL  INI  (KOBL , 3311 

1J5)=5  3312 

IF  (J5.  GE.  JPLMIN.  RND.  J5.  LE.  JPLMRX.  RND.  INSN0(J5) . EO.  0)  NOL  INI  (KOBL , 3313 

1J5)=5  3314 

IF  (J5.  GE.  JPLMIN.  RND.  J5.  LE.  JPLMRX.  RND.  INSNO(JS) . NE.  0)  NOL  INI  (KOBL , 3315 

1J5)=4  3316 

110  CONTINUE  3317 

IF  (K5.LE.L2)  IBRCK=J5  3318 

IF  (K5.LE.L2.RND.  IFRT.EO.O)  IFRT=J5  3319 

IF  (IOBO.  NE.  0.  RND.  NOL  INI  (L2,  J5).GT.l.  RND.  ISYM.  NE.  2)  NOL  INI  (L2,  J5)=  3320 

15  3321 

IF  (IOBO.  NE.  0.  RND.  NOL  INI  (L2,  J5)  .GT.l.  RND.  ISYM.  EO.  2.  RND.  I TOP.  EO.  1 ) 3322 

1NOL  1N1(L2,  J5)=5  3323 

IF  ( IOBO.  NE.O.  RND.  NVECT.  EO.  2)  NOL  INI  ( 1 , J5)=5  3324 

120  CONTINUE  3325 

MM=IGPRPH( IFRT)  3326 

DO  130  M6=MM,  IHIGH  3327 
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130  NDL  INI  (M6,  IFRT>=5  3328 

NN=IGRRPH( IBRCK)  3329 

DO  140  N6=NN,  I HIGH  3330 

140  NOL  INI  (N6,  IBRCK) =5  3331 

IF  (NVECT.NE.2)  GO  TO  170  3332 

KFRT=KP2+1-IGRRPH( IFRT)  3333 

KBCK=KP2+ 1 - IGRRPH < IBRCK)  3334 

KL 0=KP2+ 1 - IHIGH  3335 

DO  150  M6=KL0.KFRT  3336 

150  NOL  INI  (M6,  IFRT)=5  3337 

DO  160  N6-KLO. KBCK  3338 

160  NOL  INI  (N6.  IBRCK)  =5  3339 

170  CONTINUE  3340 

IF  (NCYCLE.GT.l)  GO  TO  180  3341 

IF  (MOVIE.LT.  5)  GO  TO  180  3342 

CRLL  FRRMEV  (3)  3343 

IDUM=0  3344 

CRLL  SYMBOL  (2.  .5. . .30.  TITLE. 0.  ,30)  3345 

180  CONTINUE  3346 

PRINT  550,  NCYCLE.T.DT  3347 

LSYM=-1  3348 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3349 

C PLOTTING  GRIDS  3350 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  335 1 

CRLL  FRRMEV  (3)  3352 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3353 

C MRRGIN  LINES  RND  LABELLING  3354 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxx  3355 

CRLL  NXVOSB  ( l.ZLOhl, ZHIGH,  III I)  3356 

CRLL  NXVOSB  (2.XL0V.XHIGH.  1 1 1 1 ) 3357 

IF  (IDET.EO.l)  GO  TO  220  3358 

CRLL  CHSIZV  (2.2)  3359 

TUB=T*10.*x3  3360 

DO  190  KS=1.5  3361 

IF  ( IHIST.  GT.  0.  OR.  ISPRT.  GT.  0)  GO  TO  210  3362 

CRLL  CHSIZV  (3.3)  3363 

CRLL  SYMBOL  (3.  8. 1 . 3, . 10. 1 1HTIME  (MSEC).  0. , 11)  3364 

DO  185  KU=1.15  3365 

XCD=2.  +KV*0.  70  3366 

185  CRLL  S YMBDL  (XCD.  9.  3. . 2.  TI  TLE(KV)  .0..4)  3367 

CRLL  NUMBER  (6.5. 1 .3.  .2.  TUB.  0. . 4)  3368 

CRLL  SYMBOL  (4.8. 1.0, . 1.5HCYCLE.0,  ,5)  3369 

CYCLE=NCYCLE  3370 

CRLL  NUMBER  (5.8. 1.0, . 1.  CYCLE.  0.  .-1)  3371 

CRLL  CHSIZV  (2.2)  3372 

190  CONTINUE  3373 

URITE  (6.540)  TUB  3374 

CRLL  SYMBOL  (4.5,0.22, . 12. 12HZ-AXIAL  (CM),0.,12)  3375 

CRLL  SYMBOL  ( . 45.  4. 5. . 12. 12HX-RRDIRL(CM).  90. . 12)  3376 

IF  (LI l.EO.  0)  GO  TO  200  3377 

CLI1=LI  1 3378 

JCODE=3*(L Il-3)+l  3379 

CRLL  SYMBOL  (1.75, 9.  0. . 12.  TLRBEL  (JCODE)  ,0.,4)  3380 

CRLL  SYMBOL  (2. 23. 9. 0, . 12.  TLRBEL  (JCODE+1)  ,0.,4)  338 1 

CRLL  SYMBOL  (2.  71 .9.0,.  12.  TLRBEL  (JCODE+2)  ,0.,4)  3382 

F1=E1  3383 

F2=E2  3384 

IF  (L II.  EQ . 33.  RND.  IPTSF.  EO.  2)  F1=F1«10.  *x(-8)  3385 

IF  (LI  1.  EQ.  33.  RND.  IPTSF.  EQ.  2)  F2=F2mlO.  **(-8)  3386 

IF  (LI 2.  EQ.  1 ) F1=RLDG10(E1)  3387 

IF  (LI 2.  EQ.  1 ) F2=RL0G10(E2 ) 3388 

CRLL  NUMBER  (1.5,8.  75.  .12. Fl.O.  ,3)  3389 

CRLL  SYMBOL  (2. 3. 8.  75. . 12, 2HTD.  0. . 2)  3390 

CRLL  NUMBER  (3. 1 . 8.  75, . 12,  F2, 0. , 3)  339 1 
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IF  (LI2.EQ.0)  CRLL  SYMBOL  (8.0,9.00, . 12,  l OH  LINERR  ,0.,I0)  3392 

IF  (L 12.  NE.  0)  CRLL  SYMBOL  (8. 00, 9. 0, . 12,  l OH  LOGRRI THM,  0. , 10)  3393 

200  CONTINUE  3394 

DX=(ZHIGH-ZL0W)/10.  3395 

DY=(XHIGH-XL0V)/10.  3396 

LX=2  3397 

L Y=1  3398 

210  CONTINUE  3399 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3400 

C MIRROR  IMRGE  3401 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3402 

220  LSYM=LSYM+1  3403 

IF  (LSYM.  EQ.  0)  GO  TO  250  3404 

DO  230  JEK=JLOV,  JHIGH  3405 

IF  (ISYM.EO.l)  ZGEQ ( JEK)  =-ZGRRPH( JEK ) 3406 

230  CONTINUE  3407 

DO  240  IEK=ILOW,  IHIGH  3408 

IF  ( ISYM.EQ.2 ) XGEQ ( IEK)  =-XGRRPH( IEK)  3409 

240  CONTINUE  3410 

250  CONTINUE  3411 

DO  260  KLLL=1 , IHIGH  3412 

WRITE  (6,470)  (NOL  INI  (KLLL,LJJJ),LJJJ=1 , JHIGH)  3413 

260  CONTINUE  3414 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3415 

C HORIZONTRL  GRIDS  3416 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  34 1 7 

ISEN=1  3418 

IF  (LSYM.  EQ.l)  ISEN=-1  3419 

DO  280  LJ=JLOU,  JHIGH  3420 

I PP1  =KP2+ 1 - 1 GRRPH(L  J)  3421 

DO  280  LI=ILDy,  IHIGH  3422 

IF  (NOLIN1  (LI,LJ).E0. 1 ) GO  TO  280  3423 

ZG1 =ZGRRPH( L J) +DZ ( L J)/2.  3424 

XG1  =XGRRPH(L  I)-DR(L  I)/2.  *ISEN  3425 

ZG2=ZGRRPH(L  J)  -DZ(L  J)/2.  3426 

XG2=XGRRPH( LI) +DR (LI )/2.  *ISEN  3427 

CRLL  NXVOSB  ( 3,  ZG1 , T,M1)  3428 

CRLL  NXVDSB  ( 4,  XG1 , T,  M2)  3429 

CRLL  NXVDSB  (3,ZG2,T,M3)  3430 

CRLL  NXVOSB  (4,XG2.T,M4)  3431 

IF  (NVECT.  EQ.  2.  RNO.  L I.  EQ.  IPP1 ) CRLL  LINEV  (Ml  ,M4,M3,M4)  3432 

IF  (LI. LT.  IHIGH)  GO  TO  270  3433 

CRLL  LINEV  (Ml , M4,  M3.  M4)  3434 

270  CRLL  LINEV  (Ml, M2. M3, M2)  3435 

280  CONTINUE  3436 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3437 

C VERTICRL  GRID  LINES  3438 

C XXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXMmXXXXXmXMMXXMXXMXXXXXXXXXXXXXXX  3439 

DO  310  LJ=JLOy,  JHIGH  3440 

DO  310  LI=ILOW,  IHIGH  344 1 

CRLL  NXVDSB  (3,ZGRRPH(LJ).T.MX1)  3442 

CRLL  NXVDSB  (4,XGRRPH(LI),T.MY1)  3443 

IF  (NOL  IN2(L  I,LJ).  EQ.  1)  GO  TO  290  3444 

XG1 =XGRRPH( L I ) -DR ( L I )/2.  »ISEN  3445 

ZGl=ZGRRPH(LJ)-DZ(LJ)/2.  3446 

XG2=XGRRPH(L  I )+DR(L  I )/2.  ml  SEN  3447 

ZG2=ZGRRPH(  L J)  +DZ  ( L J)/2.  3448 

CRLL  NXVOSB  (3. ZG1.T, Ml)  3449 

CRLL  NXVOSB  (3,  ZG2.T,  M3)  3450 

CRLL  NXVOSB  (4.  XG1 . T.  M2)  34 5 1 

CRLL  NXVOSB  (4,  XG2.T.M4)  3452 

IF  (LJ.EQ.  JHIGH)  CRLL  LINEV  (M3. M2. M3. M4)  3453 

IPIC-0  3454 

IF  (LJ.LT.  JHIGH)  IPIC=1  3455 
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IF  ( IPIC. EQ.  l.RND.  IGRRPH(LJ).  NE.  IGRRPH(LJ+1 ) ) CRLL  LINES/  (M3. M2. M3 
1.M4) 

CRLL  LINEV  (Ml. M2. Ml.  M4) 

290  CONTINUE 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C VECTORS 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxx 

IF  (ISC.  EQ.-l.  RND.  L 13.  EQ.  1 . RND.  LSYM.  EQ.  0)  CO  TO  300 
IF  (IVEL.NE.  1)  GO  TO  300 

IF  (M0D(L  1 . FPDEL  ) . NE.  0.  OR.  M0D(LJ,  JPOEL  ) . NE.  0)  GO  TO  300 

IF  (N0LIN1  (LI.LJ).  GT.  1 ) GO  TO  300 

ZZ1=1. 

ZZ2=l. 

IF  (LSYM.  EQ.  l.RND.  ISYM.EQ.  1)  ZZ1=-1. 

IF  (LSYM.  EQ.  l.RND.  ISYM.EQ.  2)  ZZ2=-1. 

IF  (LSYM.  EQ.l.  RND.  XGRRPH(LI) .EQ.O. ) GO  TO  300 
ZC0MP=ZVEL  T(L  I.  LJ)xRPVxZZl 
XCOMP=XVEL  T(L  I.LJ)xRPVxZZ2 

IF  (FLOG.  NE.  0)  XCOMP=RLDG10(XVELT(LI.LJ))*RPVxZZ2 
IF  (FLOG.  NE.  0)  ZC0MP=RL0G10(ZVEL  T(L  I.LJ))»RPV»ZZ1 
SUM-RBS  ( ZCOMP)  +RBS  (XCOMP) 

IF  (SUM.LT.l.)  GO  TO  300 

IXC=XC0MP 

IZC=ZCDMP 

IZC=MX1-IZC 

TYP-MYI - ixr 

CRLL  LINEV  ( IZC.  IXC.MX1 . MY1 ) 

CRLL  RRROy  (MX  1. MY  1. Ml. M2. XCOMP. ZCOMP) 

300  CONTINUE 
310  CONTINUE 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXMMXMXMXXXXXMXMXXXXMXXXXXXXXMXXKXXXXMX 

C CONTOUR  MRPPING  RND  SHRDING 

C XXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXXMMXMXXXMMMXXXXMXXXXXXXXMMM 

DO  390  LJ=JL0y.  JHIGH 

isy=-i 

DO  390  LI=ILDy.  I HIGH 

isy=-isy 

ZGl  =ZGRRPH(L  J)  -DZ(L  J)/2. 

XG1 =XGRRPH(L I ) -DR (L I )/2.  xISEN 
ZG2=ZGRRPH(L  J)  +DZ(L  J)/2. 

XG2=XGRRPH(L I ) +DR (L I )/2.  x I SEN 
I UP =2xN0L  INI  (LI . LJ)-1 
CRLL  NXVOSB  ( 3. ZGl.  T. Ml) 

CRLL  NXVOSB  (4.XG1.T.M2) 

CRLL  NXVOSB  (3.ZG2.T.M3) 

CRLL  NXVOSB  (4.XG2.T.M4) 

IF  (ISC.  NE.  -1 ) GO  TO  320 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C COMPUTING  X.  Y.  Z VRLUES  OF  CONTOUR  MRP CELL  BE  CELL 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

IF  (MOVIE.  EQ.O.  RND.  LI  3.  EQ.O)  GO  TO  320 
IF  (MOVIE.  EQ.O.  RND.  LSYM.  EQ.l)  GO  TO  320 
IF  (MOVIE.  EQ.  3.  RND.  L 13.  NE.  0.  RND.  LSYM.  EQ.l)  GO  TO  320 
IF  (NDLIN1  (LI.LJ).GT,  1 ) GO  TO  320 
XP(1. 1)=M 1/102. 3 
XP(  1 . 2)=M1/102.  3 
XP(2. 1 )=M3/102. 3 
XP(  2. 2)=M3/102. 3 
YP( 1 . 1 )=M2/102. 3 
YP(2. 1)=M2/102. 3 
YP(1, 2)-M4/102. 3 
YP(  2. 2)  =M4/102. 3 
1=1 
J=1 


3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 
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K=1  3520 

L-l  3521 

IF  (LI.EQ.ILOV)  1=0  3522 

IF  (LI.EQ.IHIGH)  K=0  3523 

IF  (U.EQ.JLOH)  J=0  3524 

IF  (LJ.EQ.  JHIGH)  L=0  3525 

TP (1.1)= (5H(L I ,LJ)+SH(L  I-I ,LJ)+SH(L I- 1 . L J-J)  +SH(L  I.  L J-J) )/4.  *DEL  TR  3526 

1+E1  3527 

TP(1 . 2)=(SH(L I. LJ)+SH(LI+K, LJ)+5H(L I+K. LJ-J)+SH(L I.LJ-J))/4.  *DEL  TR  3528 

1+E1  3529 

TP  (2. 1 )=(5H(LI-I.LJ)+SH(LI-I.L  J+L  ) +SH(L  I.LJ)+SH(LI.LJ+L))/4.  »DEL  TR  3530 

1+E1  3531 

TP(2. 2)=(5H(L I.  LJ)+SH(L I.LJ+L)+SH(L I+K.  LJ)+SH(L I+K,U+L))/4.  mDEL  TR  3532 

1+E1  3533 

CRLL  LEVEL  (TP.XP.  YP. 2.2.5.  LL.  200)  3534 

320  CONTINUE  3535 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3536 

C DRRVING  CELL  DIRGONRLS  3537 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXMK  3538 

IF  (NOLIN1  (LI.LJ).L  T.  2)  GO  TO  340  3539 

IF  (NOLIN1  (LI.LJ).EQ.  3.  DR.  NOLIN1  (LI.LJ).EQ.  4)  GO  TO  340  3540 

DO  330  IBD=1. 1 UP  3541 

IF  (IHIST.NE.O.OR.  I5PRT.NE.0)  ISU=0  3542 

IF  ( ISM.  EQ.  -1.  OR.  NDL INI  (LI.LJ).EQ.5)  CRLL  LINEV  (Ml .M2.  M3.  M4)  3543 

IF  ( ISW.  EQ.  + 1 . OR.  NDL  INI  (LI  ,LJ)  .EQ.5)  CRLL  LINEV  (M3.  M2.  Ml.  M4)  3544 

330  CONTINUE  3545 

340  CONTINUE  3546 

IF  (IPOT.EQ.O)  GO  TO  380  3547 

IF  (NOL  INI  (L  I.  LJ) . NE.  4)  GO  TO  380  3548 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3549 

C NUMBERING  ELECTRODE-PRIR5  3550 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3551 

PNUMB=  INSNO(LJ)  3552 

350  IF  (PNUMB.LT.  10. ) GO  TO  360  3553 

PNUMB=PNUMB-10.  3554 

GO  TO  350  3555 

360  CONTINUE  3556 

CM1=M2  3557 

CM3=M4  3558 

CHRR= (CM3-CM1 )/l 60.  3559 

CHRR=RBS ( CHRR)  3560 

MN1  =M1  + ( M3-M1  )/10  3561 

MN2=M2+(M4-M2)/10  3562 

MN4  =M4+(  M2-M4 )/10  3563 

XM1=MN1  3564 

XM2=MN2  3565 

IF  (LSYM.EO.l)  XM2=MN4  3566 

XM1  =XM1/1 02. 3+0. 20*CHRR  3567 

XM2=XM2/102. 3+0. 12»CHRR  3568 

DO  370  MIS=1.6  3569 

IF  (NOLIN1  (LI.LJ).EO.  4)  CRLL  NUMBER  (XM1 . XM2.  CHRR.  PNUMB.  0. , -1 ) 3570 

370  CONTINUE  3571 

380  CONTINUE  3572 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3573 

C xxxxxxxxxxxxxxxxxxxxxxxxx  5HRDING  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3574 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3575 

IF  (MOVIE.  EQ.  3)  GO  TO  390  3576 

IF  (L 13.  EQ.  1 . RND.  L5YM.  EQ.  0)  GO  TO  390  3577 

IF  (ISC.  NE.  -1.  OR.  NOL  INI  (L  I.  LJ)  .GT.l)  GO  TO  390  3578 

Q=SH(LI.LJ)  3579 

IF  (Q.GT.10)  Q=10.  3580 

IF  ( Q.LT.O .)  Q=0.  3581 

IQ=Q  3582 

IF  (LSYM.EQ.  0)  CRLL  SHRDE  (Ml. M2. M3. M4.  IQ)  3583 
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IF  (LSYM.EQ.I)  CRLL  SHRDE  (Ml  .M2.M3.M4. 10)  3584 

390  CONTINUE  3585 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3586 

C SHRDE  LEGEND  3587 

C xxxxxxxxxxxxxxxxxxMxxxxxxxxxmxxxxxxxxMxaxxxxmxMmxxxxmxxxMxxxxxxmax  3588 

IF  (MOVIE.  NE.  0)  GO  TO  410  3589 

IF  ( ISC.NE.  -1)  GO  TO  410  3590 

IF  (LSYM.EQ.I)  GO  TO  410  3591 

DO  400  J= 1.10  3592 

CK=J-1  3593 

DEL  TR=  (E2-E1  )/10.  3594 

CN1  =E1  + (J- 1 )*DEL  TR  3595 

CN2=CN1+DELTR  3596 

DD=2.*DR(1)  3597 

YB=XGRRPH(  IHICH)  -DO*  (J-l)  3598 

CRLL  NXVOSB  (4.YB.T.M2)  3599 

YB=M2/102.  3 3600 

XR=ZGRRPH(1 ) -20.  »DZ( 1)  3601 

CRLL  NXVOSB  (3. XR.T. Ml)  3602 

XR=M1/102. 3 3603 

XB=XR+0. 25  3604 

XC-XR+1.0  3605 

CRLL  NUMBER  (XR.  YB.  0.  l.CK.O. . -1)  3606 

IF  (LI l.EO.  14)  CRLL  NUMBER  (XB.  YB.  0.  l.CNl.O..  +4)  3607 

IF  (LI  l.EO.  14)  CRLL  NUMBER  (XC.  YB.  0. 1 . CN2 . 0. . + 4 ) 3608 

IF  (LI1.NE.14)  CRLL  NUMBER  (XB.YB.O,  l.CNl.O,  ,+l)  3609 

IF  (LI  1 .NE.  14)  CRLL  NUMBER  (XC.  YB. 0. 1 . CN2. 0..+1)  3610 

XDD=ZGRRPH( l)-25.*DZ(l)  3611 

YD=XGRRPH( IHIGH) -QD*(J- 1 ) - DD/4 . 3612 

OZ=(J-l)*7  3613 

XDl=XOO+DD  3614 

YD1=YD+DD  3615 

CRLL  NXVOSB  (3.  XD.  T.M1)  3616 

CRL  L NXVOSB  (3.  XD1 . T.  M3)  3617 

CRLL  NXVOSB  (4.  YD.  T.  M2)  3618 

CRLL  NXVOSB  (4.  YD1.T.M4)  3619 

XX1=M1/102. 3 3620 

XX2=M3/102.  3 3621 

YY1=M2/102. 3 3622 

YY2-M4/102. 3 3623 

CRLL  PLOT  (XX1.YY1.+3)  3624 

CRLL  PLOT  (XX2.YY1.+2)  3625 

CRLL  PLOT  (XX2.  YY2.  + 2 ) 3626 

CRLL  PLOT  (XX1.YY2.+2)  3627 

CRLL  PLOT  (XX1.YY1.+2)  3628 

CRLL  SHRDE  (Ml  .M2.M3.M4.  J)  3629 

400  CONTINUE  3630 

410  CONTINUE  3631 

IF  (LI3.EQ.  l.RND.LSYM.EQ.O)  GO  TO  420  3632 

IF  (IPRRT.NE.O)  CRLL  PRRTCL  3633 

420  IF  (ISYM.EO.O)  GO  TO  430  3634 

IF  (LSYM.EQ.O)  GO  TO  220  3635 

430  IF  (IDET.EQ.2)  CRLL  LRBPLT  3636 

IF  ( ISC.  NE.  -1.  DR.  IDET.  NE.  3)  GO  TO  460  3637 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3638 

C PUNCHED  OUTPUT  OF  SH  3639 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3640 

PUNCH  480 . IHIGH.  JHIGH.  NC YCLE.  DZ(  1 ).  DR (1 ).  ZGRRPH(  1 ) . XGRRPH(  1).  (TIT  3641 

1LE(I).  1=1.8)  3642 

UR  I TE  (6.  490)  IHIGH.  JHIGH.  NCYCLE.  DZ(1 ) . DR(1) . ZGRRPHd  ) . XGRRPHd).  ( 3643 

1 TITLE!  I).  1=1.8)  3644 

JC0DE=3*(LIl-3)+l  3645 

PUNCH  500 . E1.E2.  TLRBEL  (JCODE).  TL RBEL  ( JCODE  +1).  TLRBEL  (JCODE+2)  3646 

UR  I TE  (6. 510)  El . E2.  TLRBEL  (JCODE) . TLRBEL  (JCODE+1) . TLRBEL  (JCDOE+2)  3647 
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DO  450  I=IL0V,  IHICH  3648 

DO  440  LJ=JLOV.  JHIGH  3649 

LI=IHIGH+ILDV-I  3650 

IZZ(LJ)=SH(LI . LJ)  3651 

IF  ( IZZ(LJ).  GT.  9)  IZZ(LJ)=9  3652 

IF  (IZZ(LJ).LT. 0)  IZZ(LJ)=0  3653 

440  CONTINUE  3654 

PUNCH  520,  (IZZ(J),J=1,  JHIGH)  3655 

VRITE  (6,530)  ( IZZ(J) , J=1 . JHIGH)  3656 

450  CONTINUE  3657 

460  CONTINUE  3658 

IF  (IDET.EQ.5)  CRLL  THREED  3659 

RETURN  3660 

C 3661 

C 3662 

C 3663 

470  FORMRT  (10X,  1001 1)  3664 

480  FORMRT  (13, 13, 14,  4E10.  4,  7R4,  R2)  3665 

490  FORMRT  (10X,  13, 2X,  13, 2X,  14,  4 (IX,  El 2.  4) , 7R4,  R2)  3666 

500  FORMRT  (2E10.  4, 3R4)  3667 

51 0 FORMR T (10X,  2E1 0.  4, 5X.3R4)  3668 

520  FORMRT  (8011)  3669 

530  FORMRT  (5X,  8011)  3670 

540  FORMRT  (10X,  1 lHTIME(MSEC)  ,E12.4)  3671 

550  FORMRT  (8X.16H  NCYCLE,  T,DT  . 14,2(1X,E12.4))  3672 

END  3673 

SUBROUTINE  LRBPL  T (IL  IP,  I CODE,  I PLOT,  JPLOT,  MDIM)  3674 

C 3675 

C 3676 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3677 

C PLOTS  TIME  RND  SPRCE  HISTORIES  3678 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3679 

C 3680 

C 3681 

DIMENSION  TLRBEL  ( 102),  TL0B(102),  IC(34),  TLRB(3,3),  SYMB(36)  3682 

COMMON  /TPL  T/  TPL  TMI,  TPL  TMR,  TPL  TOE,  TPL  TDL , TZERO,  T 3683 

COMMON  /COUTP/  T1  TLE(15) , KPDEL , JPDEL , NPLOT,  NPRN,  NDIGPL , NGRRPH  3684 

COMMON/P  1/XGRRPH( 45) . ZCRRPH(225) , XVEL  T(45, 225) , ZVEL  T(45. 225) , 3685 

1 SH( 45, 225) , DR (45) , 0Z(225) , NOL  INI  (45, 225) , NOL  IN2(45, 225) , ILOV.  3686 

1 IHIGH.  JLOV.  JHIGH.  XLOV,  XHIGH.  ZLOW,  ZHIGH,  ML(  10).  IDIM(IO), NCYCLE.  ISC.  3687 

20MN( 525) , X (225) . Y (225) , I PL  OV.  IPHIGH.  JPL  DW.  JPHIGH.  XPT(50,11),  3688 

3YPT(50, 11)  3689 

COMMON  /P2/  L1.L2.L3.L4 . MFRRMEdO.  2) . IPRRRM.  IRMIN(IO) . IRMRX(IO) . JR  3690 

IMIN(IO).  JRMRX(  1 0) . MPODE  (10).  IPRR(IO).  IKT.  I KM.  MFR.  IPRRT,  NPTS.  KLOG  369 1 

COMMON  /P3/  ZZ.LI  1.LI2.L  13, L 14. El . E2, E3, E4,  ISYM, KL 1 . KL2. KL3. KL 4. PL  3692 

10.  IHMIN(20) . IHMRX(20) . JHMIN(20) . JHMRX(20) , MC0DE(20) , IHIST.  I CHECK.  M 3693 

20V IE.  IDET.  I VEL . RPV.  IL  INE.  MZ00E(20) . IDN(3) , ISPRT.  IZMIN(20) , IZMRX(20  3694 

3) . JZMIN(20) . JZMRX (20) . DUMVRR(40) , VV,  I VX.  I VZ.  INUMM  3695 

C 3696 

DRTR  SYMB/1HI,  1HJ.  1HR.  1HZ.  1H  . 1H  , 1HU.  1HV,  1HP,  1HE.  1HI,  1HC,  1HM.  1HR,  3697 

1 1HM.  1HB.  1HT.  1HT . 1HT.  1HT,  1HT.  1H  . 1HV.  1HP,  1HS.  1HJ.  1HJ,  1HG.  1HN.  1HT.  1H  3698 

21. 1H.1H.1H.1H.1H/  3699 

DRTR  TVS/4H  VS  / 3700 

C 3701 

DRTR  TLRBEL/4H  R-,  4HRRDI . 4HRL  .4H  Z-.  4HRXIR,  4HL  ,4H  DE.4HLTR  3702 

1-.4HR  ,4H  DE.4HLTR-.4HZ  . 4H  VEL.  4HOCIT,  4HY-Z  ,4H  VEL.4HOCIT.4  3703 

2HY-R  , 4H  PR.  4HESSU,  4HRE  . 4HTOTR.  4HL  EN,  4HERGY.  4H  INT,  4HERNR.  4HL  3704 

3EN.  4H  SPE.  4HED  S.  4HOUND,  4H  MR,  4HCH  N.  4HO  , 4H  D.  4HENSI,  4HTY  . 3705 

44H  . 4HMRSS.  4H  . 4H  MR.  4HGN  1, 4HND  0, 4H  . 4H  TRR.  4H  . 4H  3706 

5 . 4H  TZZ.4H  ,4H  ,4H  T00.4H  ,4H  ,4H  TRZ.4H  ,4H  3707 

6. 4HTIME.  4H  ,4H  , 4H  DT  ,4H  . 4H  VI.  4HSCDS.  4HI TY  . 4HMRGN,  4H  3708 

7 FLO.  4H  R . 4HMRGN.  4H  FLO.  4H  Z ,4H  CUR.  4HRENT.  4H-R  . 4H  CUR.  4HREN  3709 

8 T.  4H-Z  . 4H  C,  4HP/C V.  4H  . 4H  CON,  4HD  EL , 4HEC  TR.4H  ,4H  ,4  3710 

9H  . 4HTEMP.  4HERRT , 4HURE  , 4HSP  H . 4HERT  . 4HVDL  . 4H  POT,  4HENTI.  4HRL  37 1 1 
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$ , 4HHRLL . 4H  PRR.  4HMTER,  4H  CON,  4HD  TH,  4HERML , 4H  VOR,  4HTICI,  4HTY  / 3712 

C 3713 

DRTR  TL0B/4H  ,4H  CM  ,4H  ,4H  ,4H  CM  ,4H  ,4H  ,4H  CM  , 3714 

14H  ,4H  ,4H  CM  ,4H  ,4H  CM,4H/5EC.4H  , 4H  CM,4H/SEC,4H  3715 

2 ,4H  , 4HRTMS,  4H  ,4H  E,4HRG/C,4HM  ,4H  E,4HRG/C,4HM  3716 

3, 4H  CM,  4H/5EC,  4H  ,4H  ,4H  — ,4H  ,4H  G,  4HM/CM,  4H3  ,4H  3717 

4 ,4H  GM  ,4H  ,4H  G,4HRUSS,4H  ,4H  DY,  4HNE/C,  4HM2  ,4H  D 3718 

5Y,  4HNE/C,  4HM2  ,4H  DY,  4HNE/C,  4HM2  ,4H  DY,  4HNE/C,  4HM2  ,4H  ,4  3719 

6H  SEC.4H  ,4H  ,4H  SEC,4H  ,4H  GM-,  4HCM/5. 4HEC  ,4H  G,4HRU  3720 

7SS.4H  ,4H  G,  4HRUSS,  4H  , 4HRBCD,  4HL/CM.  4H/5EC,  4HRBCO,  4HL/CM,  3721 

84H/SEC,  4H  ,4H ,4H  ,4H  ,4H ,4H  ,4H  ,4H  ,4H  3722 

9 ,4H  , 4HDEG  ,4HK  ,4H  ,4H ,4H  ,4H  ,4HVDLT,4HS  3723 

$,4H  ,4H ,4H  ,4H  ,4H ,4H  ,4H  ,4H ,4H  / 3724 

C 3725 

DRTR  I C/0, 0, 0, 0. 0, 0, 0. 0, 0. 0, 0, 0. 0, 0, 0, 0, 0, 0, 0, 0, 0. 0. 0. 0, 0, 0, 0, 0, 0,  3726 

10,0,0,0,0/  3727 

3728 

3729 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3730 

PLOT  TIME  HISTORIES  RND  SPRTIRL  DISTRIBUTIONS  3731 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3732 

WRITE  (6,160)  (TITLE! I ),  1=1, 15)  3733 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3734 

DEFINING  VRRIRBLES  RND  CELLS  TO  BE  PLOTTED  3735 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3736 

CL1=KL1  3737 

CL2=KL2  3738 

CL3-KL3  3739 

CL4=KL4  3740 

CIPLOT=IPLDT  3741 

CJPLDT=JPLDT  3742 

ICEX=0  3743 

CRLL  CHSIZV  (1,1)  3744 

DC=50.  3745 

JCODE=3* ( I CODE-3) +1  3746 

TLRB(1 , 1 )=TLRBEL  (JCDDE)  3747 

TLRB(1 ,2)=TL RBE L (JCODE+1)  3748 

TLRBd , 3)=TLRBEL  (JCODE+2)  3749 

TLRB(2, 1)=TVS  3750 

JZ=21  3751 

IF  (MOIM.EO.l)  JZ=3  3752 

IF  (MDIM.EQ.2)  JZ=4  3753 

JZ=3*(JZ-3)+l  3754 

TLRB(3, 1 ) = TLRBEL  (JZ)  3755 

TLRB(3,2)=TL RBEL  ( JZ+ 1 ) 3756 

TLRB(3.3)=TL RBEL  ( JZ+2)  3757 

TLRB(2, 1)=TLDB(JZ)  3758 

TLRB(2. 2)=TL0B(JZ+1 ) 3759 

TLRB(2, 3)=TL0B( JZ+2)  3760 

IE=IC( ICODE)  3761 

IF  (ICDDE.EO.O)  IE=0  3762 

DO  10  KG=1,  ILIP  3763 

Y(KG)=Y(KG)*10.**IE  3764 

10  CONTINUE  3765 

CRLL  CHSIZV  (3,3)  3766 

IF  (MDIM.  NE.  1 . RND.  MDIM.  NE.  2)  GO  TO  30  3767 

IF  (MFR.EQ.l)  GO  TO  30  3768 

DO  20  KG=1,2  3769 

CRLL  SYMBOL  (7. 1,  .3, . 1, 19H  1=  , J=  , ,0.,  19)  3770 

CRLL  NUMBER  (7.54,  .3, . 1,CL1,0.  ,-l)  3771 

CRLL  NUMBER  (7.84,  .3, . 1,CL2,0.  ,-l)  , 3772 

CRLL  NUMBER  (8. 44, . 3, . 1 ,CL3,0. . -1 ) 3773 

CRLL  NUMBER  (8. 84,  .3,.l,  CL4, 0.,-l)  3774 

20  CONTINUE  3775 
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TUB=T*10.**3  3776 

CRLL  SYMBOL  (3.8,9. ,.  1, 1 1HTIME  (MSEC).O. . 11)  3777 

COLL  NUMBER  <6. 5.9...1,  TUB,  0. , 5)  3778 

CRLL  SYMBOL  (4.2,8.65, . 1 ,5HCYCLE,0.  .5)  3779 

CYCLE=NCYCLE  3780 

CRLL  NUMBER  (5. 2. 8. 65,.  1,  CYCLE,  0..-1)  3781 

30  CONTINUE  3782 

YB=10.  **12  3783 

XL=10.  **12  3784 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXX  3785 

C SERRCHING  FOR  MRXIMUM  RND  MINIMUM  3786 

C xxxxxx*xxxxxx*****xxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxx**xxxxxxxxxx  3787 

YT=-10.  **12  3788 

XR=-10.  **12  3789 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3790 

C DETERMINING  ORDER  OF  PLOTTING  VRRIRBLES  3791 

£ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXX***XX  3792 

DO  40  J-l.ILIP  3793 

IF  (X(J).LT.XL)  XL=X(J)  3794 

IF  (X(J).GT.XR)  XR=X(J)  3795 

IF  (Y(J).LT.YB)  YB-Y(J)  3796 

IF  (Y(J).GT.YT)  YT=Y(J)  3797 

40  CONTINUE  3798 

C XXXXXXXX XXXXXXXXXXXXX X XXX XX XXX XXX XX XX XXXXXX XX X x*xxxxx xxxxxxxxxxxxx  3799 

c SCRLING  NUMBERS  RND  RE-HR  I TING  IN  EXPONENT  FORM  3800 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3801 

YT=YB+(YT-YB)*1 . 2 3802 

IF  ( IHIST.EO.  0)  XL=ZLDH  3803 

IF  ( IHIST.EQ.  0)  XR=ZHIGH  3804 

YT=YT+1.5*(YT-YB)  3805 

ICEX1=0  3806 

1CEX2-0  3807 

H1=0.  3808 

H2=0.  3809 

H3=0.  3810 

H4=0.  3811 

XXLL =RBS (XL)  3812 

XXRR=RBS(XR)  3813 

YYBB=RBS ( YB)  3814 

YYTT=RBS(YT)  3815 

IF  (XR.GT.l.)  H1=RLDG10(XR)  3816 

IF  (YT.GT.l.)  H3-RLDG10(YT)  3817 

IF  (XL.LT.-l.)  H2=RL 0G10( XXL L ) 3818 

IF  (YB.LT.-l.)  H4=RL0G10(YYBB)  3819 

IF  (XR.  GT.  -1. . RND.  XR.LT.l..  RND.  XR.  NE.  0.  ) H1=-RLDG10(  1 . /XXRR)  3820 

IF  (YT.GT.  -1..RND.  YT.LT.  1.  .RND.  YT.NE.O.  ) H3=-RLDG10(1./YYTT)  3821 

IF  (XL.  GT.  -1. . RND.  XL.LT.l..  RND.  XL.NE.  0.  ) H2=-RLDG10(  l./XXLL)  3822 

IF  (YB.  GT.  -1. . RND.  YB.LT.l..  RND.  YB.  NE.  0.  ) H4=-RL0G10(  1 . /YYBB)  3823 

ICEX1=-H1  3824 

ICEX2=-W3  3825 

IF  ( HI . GT.  0. . RND.  W2.  GT.O. . RND.  H2.  GT.  HI ) ICEX1=-H2  3826 

IF  (H3.  GT.O..  RND.  H4.  GT.O..  RND.  H4.GT.H3)  ICEX2=-H4  3827 

IF  (Hl.LT.O.  RND.  H2.  LT.O. . RND.  Hl.LT.  H2)  ICEX1=-H2  3828 

IF  (H3.  LT.O.  RND.  H4.  LT.O..  RND.  H3.LT.H4)  ICEX2=-H4  3829 

YB=YB*IO.  **ICEX2  3830 

YT=YT*10.  **ICEX2  3831 

XL=XL*10.**ICEX1  3832 

XR=XR*10.  **ICEX1  3833 

DO  50  KG=1, ILIP  3834 

X(KG)=X(KG)*10.  **ICEX 1 3835 

Y(KG)=Y(KG)*10.  **ICEX2  3836 

50  CONTINUE  3837 

IE=IE+ICEX  3838 

C MMXXXXXXMXXXXXXXXXX**XXXXXXX*XXXXX**XXXX****XX***XXXX******X***XXX  3839 
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C WRRNING  RBOUT  VRRIRBLES  OF  CDNSTRNT  VRLUE  3840 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXX  3841 

IF  (XR.NE.XL.RND.YB.NE.YT)  GO  TO  60  3842 

CRLL  SYMBOL  (3.  ,6.5,.  1, 12HN0  CHRNGE  IN,  0. , 12)  3843 

CRLL  SYMBOL  (5. 2,6. 5, . 1 . TLRB( 1 , 1 ),0. . 4)  3844 

CRLL  SYMBOL  (5. 60, 6.5..1,  TLRBd.  2),0.,  4)  3845 

CRLL  SYMBOL  (6. 00, 6.5,.  I,  TLRB(1 ,3),0.,4)  3846 

IF  (JZ.  EQ.  21)  CRLL  SYMBOL  (3.  ,5. . . 1 , 12HI=  J=  ,0.,12)  3847 

CRLL  NUMBER  (2.5,3. , . 1,YB,0.  ,2)  3848 

CRLL  NUMBER  (5.0,3. , . 1,YT,0.  ,2)  3849 

CRLL  SYMBOL  (8.,3.,.1,  TLOB(JCDDE) ,0.,4)  3850 

CRLL  SYMBOL  (8.  40, 3...1,  TLOB(JCODE+1),0. , 4)  3851 

CRLL  SYMBOL  (8.  80,3.,.  1,  TL0B(JC0DE+2),0. , 4)  3852 

IF  (JZ.  EQ.  21 ) CRLL  NUMBER  (3.  4,4.8,.  1,  CIPLOT,  0.,-l)  3853 

IF  (JZ.  EQ.  21 ) CRLL  NUMBER  (4. 2,4.8,.  1,  CJPLOT,  0.,-l)  3854 

60  CONTINUE  3855 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXX  3856 

C SETTING  UP  INTERVRLS  3857 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMKXKMMMXMmMXMXXMMKMXMXXKMmXXMMXXMM  3858 

IF  (XR.  EQ.  XL . OR.  YB.  EQ.  YT)  RETURN  3859 

DEL  T=(XR-XL)/10.  3860 

CRLL  TRUN  (BELT.  DEL  TR)  3861 

IM=XL/DEL  TR  3862 

CM=IM  3863 

IF  (XL.GT.O.)  XL=CMxDELTR  3864 

IF  (XL.LT.O.)  XL=(CM-1.)*DELTR  3865 

DX-DEL  TR  3866 

DEL  T=(YT-YB)/10.  3867 

CRLL  TRUN  (DELT.DELTR)  3868 

IF  ( DELTR.EQ.O .)  RETURN  3869 

IM=YB/DEL  TR  3870 

CM=IM  3871 

IF  (YB.GT.O.)  YB=CM*DELTR  3872 

IF  (YB.LT.O.)  YB=(CM-l.)mDELTR  3873 

IF  (XL.EQ.XR.OR.  YB.EQ.  YT)  RETURN  3874 

DY=DEL  TR  3875 

CRLL  NXVOSB  (1,XL,XR,-1)  3876 

CRLL  NXVOSB  (2,  YB,  YT,  -1)  3877 

CRLL  CHSIZV  (3,3)  3878 

CRLL  DXDYV  (1,XL,XR,  OX,  N,  I , NX,  DC,  I ERR)  3879 

CRLL  DXDYV  (2,  YB,  YT,  DY,  M,  J,  NY,  DC,  IERR)  3880 

LX=2  3881 

L Y=2  3882 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxmxxxxxxxxx  3883 

C SETTING  GRIDS  3884 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxx  3885 

CRLL  SETGRD  (XL , XR,  YB,  YT,  DX,  DY,  LX,  L Y)  3886 

DO  80  J=2,ILIP  3887 

M1=0  3888 

M2=0  3889 

M3=0  3890 

M4=0  3891 

CRLL  NXVOSB  (3,X(J-1),R3,M1)  3892 

CRLL  NXVOSB  (4,  Y(J-1  ),R3,M2)  3893 

CRLL  NXVOSB  (3,X(J),R3,M3)  3894 

CRLL  NXVOSB  (4,  Y(J),R3,M4)  3895 

IF  (Ml.EQ.M3)  Y(J)=Y(J-1)  3896 

DO  70  LV=1,2  3897 

X3=M3/102.  3 3898 

X4=M4/102.  3 3899 

IF  (MFR.EQ.  l.RND.MOD(J,5).EQ.O)  CRLL  SYMBOL  <X3, X4, . 1,SYMB( ICODE),  3900 

10.,  1)  3901 

CRLL  LINEV  (ML  M2,  M3,  M4)  3902 

70  CONTINUE  3903 
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80  CONTINUE  3904 

IF  ( ICDDE.EO.O ) RETURN  3905 

DD  130  KX=1.2  3906 

WRITE  (6,160)  (TITLE(l) , 1=1, 15)  3907 

DO  85  RW=1. 15  3908 

XCD-2.  +RW*0.  70  3909 

85  COLL  5 YMBOL  (XCD,  9. 5, . 2,  TI  TLE(RV)  ,0.,4 ) 3910 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  39 1 1 

C PRINTING  VRRIRBLE  NRMES  RND  DIMENSIONS  3912 

c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3913 

DO  120  MK=1,2  3914 

DO  110  K=l,3  3915 

JK=JCODE-l +R  3916 

C1=R-1  3917 

CX=Clm.  40+3.5  3918 

CY1=C1*. 40+4.2  3919 

CY2=Cl*.40+5.2  3920 

CZ=C1*.  40+5.5  3921 

IF  (MR.EQ.2)  CZ=0. 22  3922 

IF  (MFR.EO.O)  GO  TO  100  3923 

ICZ=22+(IRT-1)*12  3924 

CZ=1CZ  3925 

CZ-CZ/100.  3926 

100  IF  (MR.  EQ.  1 ) CRLL  SYMBOL  (CX,  .3,.  1,  TLRB(3,  K),0.,  4)  3927 

IF  (MR.  EQ.  1 ) CRLL  SYMBOL  (CZ,  .3,.  1,  TLRB(2,  R),0.,  4)  3928 

IF  (MR.  EQ.  2)  CRLL  SYMBOL  (CZ,  CY1..1,  TLRBEL  (JR) . 90. , 4)  3929 

IF  (MR.  EQ.  2)  CRLL  SYMBOL  (CZ,  CY2, . 1,  TLOB(JR) , 90. , 4)  3930 

110  CONTINUE  3931 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3932 

C PRINTING  ORDER  OF  VRRIRBLES  (1ST, 2ND. 3RD, ETC..)  TO  BE  PLOTTED  3933 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxx  3934 

IX=32+(IRT-1)*12  3935 

IF  (MFR.EQ.O)  IX-50  3936 

CIX=IX  3937 

CIX=CIX/100.  3938 

IF(MR.EQ.  2)  CRLL  SYMBDL(CIX.  5.  5, . 1 . 1HE.  90. . 1 ) 3939 

IF  (MR.EQ.l)  CRLL  SYMBOL  (5.00,  .2, . 1. 1HE.O. . 1)  3940 

CDUMB=10.**(ICEX2)  3941 

IF  (MR.EQ.l)  CRLL  NUMBER  (5.25,  .2, . 1 .CDUMB.O. . -1 ) 3942 

CDUMB=10.*x(ICEXl)  3943 

IF  (MR.  EQ.  2)  CRLL  NUMBER  (CIX,  5. 25,.  1,  CDUMB.  90., -1)  3944 

120  CONTINUE  3945 

CRLL  CHSIZV  (3.3)  3946 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3947 

C CELL  WENT  I FICR  TION  3948 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  3949 

IF  (MDIM.  EQ.  1 . OR.  MDIM.  EQ.  2)  GO  TO  130  3950 

CRLL  SYMBOL  (4.  ,9. . . 1.21H  1=  J=  . 0..21 ) 3951 

CRLL  NUMBER  (4.48,9. ,.  l.CIPLOT.O.  ,-l)  3952 

CRLL  NUMBER  (5.40,9. ,.  l.CJPLDT.O.  .-1)  3953 

130  CONTINUE  3954 

IF  (MFR.EQ.O)  GO  TO  150  3955 

YR=800-IRT*20  3956 

IR=YR  3957 

CY=YR/102. 3 3958 

DO  140  R=l,3  3959 

JR=ICODE  3960 

JR=3*(JR-3)+R  3961 

CX1=R-1  3962 

CX2=CX1>k.  40+8.  3963 

CRLL  SYMBOL  (CX2.  CY..1,  TLOB(JR).  0. . 4)  3964 

CRLL  SYMBOL  (9.  4.  CY..1,  SYMB(ICODE)  ,0.,1)  3965 

140  CONTINUE  3966 

150  CONTINUE  3967 
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RETURN  3968 

3969 

3970 

160  FDRMRT  (2X.15R4)  3971 

END  3972 

SUBROUTINE  SETGRD  (XL . HORZ.  YB,  VERT,  DX,  DY.  LX,  L Y)  3973 

3974 

3975 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3976 

SETTING  GRID  FDR  TIME  RND  SPRCE  HISTORIES  3977 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  3978 

3979 

3980 

COMMON  /PI/  XGRRPH(25) , ZGRRPH(  75) , XVEL  T(25,  75) , ZVEL  T(25,  75) . SH(25,  398 1 

1 75) , DR(25) . DZ(  75) . NOL  INI  (25,  75) , NOL  IN2(25,  75) , I LOU,  I HIGH,  JLOW.  JHIG  3982 

2H,  XLDW,  XHIGH,  ZLOU.  ZHIGH,  ML  (10) . MDIM(IO) , NCYCLE,  ISC,  DMN(525) . XLF(  75  3983 

3),  YLF(  75) , I PLOW,  IPHIGH,  JPLOU,  JPHIGH.  XPT(50, 11),  YPT(50, 11)  3984 

COMMON  /P2/  L1,L2,L3,L4,  MFRRME (10,2),  IPRRRM,  IRMIN(IO),  IRMRX(10),JR  3985 

1MIN(10),  JRMRX (10),  MPODE (10),  IPRR(IO),  IKT,  IKM.  MFR,  IPRRT,  NPTS,  KLOG  3986 

COMMON  /P3/  ZZ,  LI1,LI2,L  13,  L 14,  El , E2,  E3.  E4,  ISYM,  KL 1 , KL2.  KL3,  KL  4,  PL  3987 

10.  IHMIN(20) , IHMRX  ( 20) . JHMIN(20) . JHMRX(20) . MCODE(20) . I HIST,  I CHECK,  M 3988 

20V  IE,  IDET.  I VEL , RPV,  IL INE,  MZ0DE(20) . IDN(3) . I SPOT,  IZMIN(20) . IZMRX(20  3989 

3) , JZMIN( 20) , JZMRX ( 20) , DUMVRR(40) , WW,  I VX,  I VZ,  INUMM  3990 

3991 

3992 

DIMENSION  XLRB(50),  YLRB(50),  IRRSX(50),  IRRSY(50)  3993 

3994 

3995 

CRLL  LINEV  (WOO.  100, 100. 100)  3996 

CRLL  LINEV  (100.100.100.1000)  3997 

NTX- (HORZ-XL )/DX+ 1 . 3998 

NTY=(VERT~  YB)/DY+1 . 3999 

XLRB(  1 )=XL  4000 

**MXXXXX*XXX*mXXX**M)Km**MX**KIKMMMXX***MM*K****MXMM)K*M**MMX)KM*M***M  4 00  1 

DEFINING  LRBELS  4002 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4003 

DO  10  1=2.  NTX  4004 

10  XLRB( I )=XLRB( 1-1 )+DX  4005 

YLRB(  1 )=YB  4006 

DO  20  1=2.  NTY  4007 

20  YLRB(I)=YLRB(I-1)+DY  4008 

DO  30  1=1.  NTX  4009 

CRLL  NXVDSB  (3.  XLRB(I),  T.M1)  4010 

30  IRRSX( I )=M1  4011 

DO  40  1=1.  NTY  4012 

CRLL  NXVDSB  (4.  YLRB(I).  T.M2)  4013 

40  I ROSY  ( I )=M2  4014 

IF  (MFR.  NE.O)  GO  TO  60  4015 

DO  45  1=1.  NTX.  LX  4016 

CRLL  LINEV  (IRRSX(I),  100.  IRRSX(l),  150)  4017 

45  CONTINUE  4018 

DO  50  1=1, NTY. LY  4019 

CRLL  LINEV  (100,  IRRSY(l) . 150.  IRRSY(l))  4020 

50  CONTINUE  4021 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4022 

LRBELLING  RBSCISSR  4023 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4024 

60  CONTINUE  4025 

LDX=LX  4026 

IF  (NTX.GT.  12)  L0X=2  4027 

DO  70  1=1  .NTX.LOX  4028 

IRRSX(  I )=IRRSX(  I ) -24  4029 

X1=IRRSX( I)/ 102.  3 4030 

Y 1=70./ 102. 3 4031 
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CNB=0.  12  4032 

NUMB=5  4033 

IF  ( I HI  ST.  GT.  0.  DR.  ISPRT.  GT.  0)  NUMB=2  4034 

IF  (IHIST.  GT.O.  DR.  ISPRT.  GT.O)  CNB=0.08  4035 

70  CRLL  NUMBER  (Xl.Yl.CNB.XLRB(I).O.  .NUMB)  4036 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXMXXXXXX  4037 

C LRBELLING  DRDINRTE  4038 

C XXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXXXXXXXXXXXMMXMXXXXXXXXXMXmHm  4039 

DO  100  I=1.NTY,LY  4040 

ISIG=0  404 1 

IF  (IRRSY(I).GT.  430.  RND.  IRRSY(  I ).LT,640)  ISIG=1  4042 

DO  100  KIJ=1,2  4043 

XI  =10.  /102. 3 4044 

Y1=IRRSY( I)/ 102. 3 4045 

IF  (MFR.NE.O)  GO  TO  80  4046 

IF(ISIG.  EO;  0)  CRLL  NUMBER  (XI  ,Y1,.  12.  YLRB(I).  0..4)  4047 

IF  (MFR.EQ.O)  GO  TO  90  4048 

80  ICX=10  4049 

ICY=IRRSY(  I)  4050 

ICX=ICX+12*IKT  4051 

X1=ICX/102. 3 4052 

IF(ISIG.  EO.  0)  CRLL  NUMBER  (XI . Yl,.  12.  YLRB(I).  90. . 2)  4053 

90  CONTINUE  4054 

100  CONTINUE  4055 

RETURN  4056 

4057 

4058 

END  4059 

SUBROUTINE  NXVOSB  (INXV.  XI . X2.  ID  4060 

4061 

4062 

XXXXXXXXXXMXXMXXXXXXXMXXXXmMmXMXXXXM*IKXMM*M(X*XXMXXMXMXX*XMMX*MMXXM  4063 

SETTING  SCRLES  4064 

MXXXXXXXXXXX*XXXXXXMXMXXXXXXXMmM*X*MMMMMX*MXMMXM*XM*MX**mMXXKM*MMX  4065 

4066 

4067 

GO  TD  (10.20.30.40).  INXV  4068 

10  XMIN=X1  4069 

XMRX=X2  4070 

GO  TO  50  4071 

20  YMIN=X1  4072 

YMRX=X2  4073 

GO  TO  50  4074 

30  13=900-150  4075 

R3=I3  4076 

R4=150.  4077 

R1 = (XI  -XMIN)  *R3/(  XMRX-XMIN)  +R4  4078 

I 1=R1  4079 

GO  TO  50  4080 

40  13=900-150  4081 

R3=I3  4082 

R4=150  4083 

Rl=(Xl-YMIN)*R3/(  YMRX-  YMIN)+R4  4084 

I1=R1  4085 

50  RETURN  4086 

END  4087 

SUBROUTINE  TRUN  (XIN.  YOUT)  4088 

4089 

4090 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4091 

TRUNCRTES  R NUMBER  4092 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4093 

4094 

4095 
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YDUT=0.  4096 

IF  (XIN.EQ.  0.  ) RETURN  4097 

J=1  4098 

Y=RBS(XIN)  4099 

IF  (Y.GT.l.)  J=-l  4100 

1=0  4101 

10  1=1+1  4102 

IF  (I.GT.50)  RETURN  4103 

Jl=I*J  4104 

Yl=Y*10.**Jl  4105 

IF  (J.  EO.  -l.RND.  Yl.GT.  1.  ) GO  TO  10  4106 

IF  (J.EQ.  l.RND.  Yl.LT.l.)  GO  TO  10  4107 

IF  (J.GT.O)  ITRUNC=Y1  4108 

IF  (J.LT.O)  ITRUNC=Y1*10.  4109 

Y1=ITRUNC  4110 

IF  (J.GT.O)  IE=-JI  4111 

IF  (J.LT.O)  IE=-JI+J  4112 

Y0UT=Y1*10.  **IE*RBS(XIN)/XIN  4113 

RETURN  4114 

END  4115 

SUBROUTINE  RRROV  ( IZC,  IXC,  Ml . M2.  XCOMP.  ZCOMP)  4116 

C 4117 

C 4118 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4119 

C DRRk/S  RRROU  FOR  VECTOR  PLOT  4120 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4121 

C 4122 

C 4123 

IF  (ZCOMP.  EO.O.)  ZC0MP=10.**(-6)  4124 

VR=RBS (XCOMP/ ZCOMP)  4125 

VR=RTRN(VR)  4126 

IF  (ZCOMP.  GT.O.)  THETR=SIGN(l.,XCOMP)*VR  4127 

IF  (ZCOMP.  LT.O.)  THETR=3. 1416-SIGN(  1 . . XCOMP  )«VR  4128 

THE  TR1  = THE TR+ 1 50.  /360.  * 6.28  4129 

THE TR2=  THETR+210.  /360.  *6. 28  4130 

XCOORD=Ml  4131 

YC00RD=M2  4132 

X=IZC  4133 

Y=IXC  4134 

RCOMP=SQRT ( ZC0MP**2+XC0MP**2)  4135 

RC0MP=RC0MP/2.  4136 

XI =X+COS (THE TR1 ) xRCOMP/ 4 . 4137 

X2=X+C0S(THETR2)*RC0MP/4.  4138 

Yl=Y+SIN(THETRl)mRCOMP/4.  4139 

Y2= Y+SIN( THETR2)*RCOMP/4.  4140 

IX1=X1  4141 

IX2=X2  4142 

IY1=Y1  4143 

IY2=Y2  4144 

CRLL  LINEV  ( IZC.  IXC.  1X1 . IY1 ) 4145 

CRLL  LINEV  (IZC.  IXC.  1X2. 1 Y2)  4146 

CRLL  LINEV  (1X1.  IY1. 1X2.  IY2)  4147 

RETURN  4148 

END  4149 

SUBROUTINE  PRRTCL  4150 

4151 

4152 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4 1 53 

DRRIVS  PRRTICLES  4154 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4 1 55 

4156 

4157 

COMMON  / TPL  T/  TPL  TMI.  TPL  TMR.  TPL  TDE.  TPL  TDL . TZERO.  T 4158 

COMMON  /CMESH/  KMRX,  JMRX.  KP1 . JP1 . KP2,  JP2  4 1 59 
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COMMON/P  1/R  (45) , Z (225) . V (45, 225) , U (45, 225) . 4160 

15H(45. 225) , FR(45),  FK225) . NOL  INI  (45, 225) . NDL  IN2(45, 225) , I LOU.  4161 

1IHICH,  JLOV.  JHIGH,  XLOV.  XHIGH.  ZLOV,  ZHIGH.  ML  (lO).MDIM(lO) .NCYCLE,  ISC,  4 1 62 

2DMN( 525) . XLF(225) . YLF(225) , I PLOW,  IPHIGH,  JPLDV,  JPHIGH,  XPT(50, 11),  4163 

3YPU50.ll)  4164 

COMMON  /P3/  ZZ,  LI1.LI2.L  13,  L 14.  El , E2,  E3.  E4,  ISYM,  ML  1.KL2.  ML3,  ML 4.  PL  41 65 

ID.  IHMIN(20) . I HMRX  (20) . JHMIN(20) . JHMRX(20) . MC0DE(20) , I HIST,  I CHECK,  M 4166 

20VIE.  IDET.  IVEL.RPV.  ILINE.MZ0DE(20),  I0N(3),  ISPRT.  IZMIN(20).  IZMRX(20  4167 

3) . JZMIN(20) , JZMRX(20) , DUMVRR(40) . VV.  I VX,  I VZ,  INUMM  4168 

DRTR  CKT/O./  4169 

C 4170 

C 4171 

X1=Z(1)  4172 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4173 

C DETERMINING  SIZE  OF  POINT  TO  BE  PLOTTED  4174 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4175 

X2=Z(2)  4176 

CRLL  NXVOSB  (3.X1.S.NX1)  4177 

CRLL  NXVOSB  (3.X2.S.NX2)  4178 

NDIF=IRBS  ( NX2-NX 1 ) 4179 

CPT=NDIF  4180 

CPT=CPTxl . 0/102. 3 4181 

IF  (CPT.GT.l. .DR.CPT.LT. .01)  CPT=0.25  4182 

DKT=1.  4183 

IF  (ISYM.  GT.  0.  RND.  CKT.  GT.O.)  DKT=0. 5 4184 

CKT=CKT+DKT  4185 

IKT=CKT  4186 

IF  (IKT.  EQ.  1 ) TLOy=  TPL  TMI  4 1 87 

DT=T-TLOV  4188 

TLOV=T  4189 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4190 

C DEFINING  THE  LOCRTION  OF  R NEV  SET  OF  TRRCER  PRRTICLES  4191 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  ■ 4192 

IF  (DT.LE.O.)  RETURN  4193 

IF  (IKT.  GT.NPTS)  GO  TO  20  4194 

K=0  4195 

DO  10  M=IPLOV,  IPHIGH  4 1 96 

DO  10  L =JPLOV . JPHIGH  4 1 97 

IF  (IPLOV.NE.  IPHIGH)  K=M  4198 

IF  ( JPLDV.  NE.  JPHIGH)  K=L  4199 

XPT(K.IKT)=Z(L)  4200 

YPT(K.IKT)=R(M)  4201 

10  CONTINUE  4202 

KK=K  4203 

20  CONTINUE  4204 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4205 

C REDEFINING  LOCRTION  OF  TRRCER  PRRTICLES  4206 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxuxxxxxxxxxxxxxxxxxxxxx  4207 

IF  (IKT.  GT.NPTS)  IKT=NPTS  4208 

IF  (IKT.  GE.  10)  IKT-10  4209 

DO  30  M=2,  IKT  4210 

DO  30  L l=IPLOV,  IPHIGH  42 1 1 

DO  30  L2= JPLDV.  JPHIGH  4212 

IF  (IPLOV.NE.  IPHIGH)  K=L1  4213 

IF  (JPLDV.  NE.  JPHIGH)  K=L2  4214 

X=XPT(K.M)  4215 

Y=YPT(K.M)  4216 

XL=X  4217 

YL  = Y 4218 

IF  ( ISYM.EQ.  1)  XL=RBS(XL)  4219 

IF  (ISYM.EQ. 2)  YL=RBS(YL)  4220 

CRLL  CELL  (XL,  YL,  1 1.  JJ)  4221 

JP=JJ+1  4222 

IF  ( X.  LE.  Z ( JJ) . RND,  JJ.  GT,  1)  JP=JJ-l  4223 
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IP=II+!  4224 

RR=R( II)  4225 

IF  (Y.LE.RR.RND.  II.GT.  1)  IP=II-l  4226 

DZ=Z  ( JJ+  1)-Z(  JJ)  4227 

DR=R( 1 1+1 )-R( 1 1 ) 4228 

ZEL1X=U(  1 1 . JJ)  + (X-Z(  JJ)  )/DZ *(U(  IP  t JJ)-U(II.  JJ))  4229 

VEL2X=U(II . JP)  + (X-Z(JJ))/DZ*(U(IP.  JP)-U(II,  JP))  4230 

/EL  1 Y=V( 1 1 , JJ)  + ( Y-RR)/DR* ( /(IP.  JJ) -/(II.  JJ) ) 4231 

ZEL2Y=Z(IP.  JJ)+(Y-RR)/DR*(V(IP.  JP)-/(IP.  JJ))  4232 

XPT(K.  M)  =XPT(K.  M)  + ( ZEL 1X+  (X-Z(JJ) )/DZ* ( VEL2X-  VEL  1X))*DT  4233 

YPT(K.M)=YPT(K.M)+(VEL1Y+(Y-RR)/DR*(VEL2Y-ZEL1Y))*DT  4234 

30  CONTINUE  4235 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXMXXXXMXMXXXXXXMMXKMMXMMXXMM  4236 

C PLOTTING  TRRCER  PRRTICLES  _ 4237 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxMxxmxxxMXxxMMmmmxxmxxMMxxmmmmxxx  4238 

MLOW=JPLOy  4239 

IF  ( IPLOV.  NE.  IPHIGH)  NLOy=IPLOy  4240 

DO  40  M-MLOy.  KK  4241 

DO  40  J=2.  IKT  4242 

X=XPT(M.J)  4243 

Y=YPT(M.J)  4244 

CRLL  NX/OSB  (3.X.S.N1)  4245 

CRLL  NX/OSB  (4.Y.5.N2)  4246 

IF  (X.  GT.  Z(JP2).  OR.  X.  L T.  Z(l).OR.  Y.  GT.  R(KP2).0R.  Y.  L T.  R(D)  GO  TO  40  4247 

CRLL  PLOTV  ( Nl.N2.44 ) 4248 

40  CONTINUE  4249 

RETURN  4250 

C 4251 

END  4252 

SUBROUTINE  CELL  (X.Y.II.JJ)  4253 

4254 

4255 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4256 

SELECTS  CELL  CONTRINING  PRRTICLES  4257 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4258 

4259 

4260 

COMMON/P l/R  (45). Z (225) . X/EL  T(45. 225) . Z/EL  T(45. 225) . 4261 

1 SH( 45. 225) ,DR(45).DZ( 225).  NOLIN1  (45. 225).  N0LIN2(45. 225).  ILOy.  4262 

1 IHIGH.  JLOy . JHIGH . XLOV.  XHIGH.  ZLOV.  ZHICH.  ML  (10) . MDIM(IO) . NCYCLE.  ISC.  4263 

2DMN( 525) . XLF(225) . YLF(225) . IPLOy.  IPHIGH.  JPLOV.  JPHIGH.  XPT(50. 11).  4264 

3YPT(50. 11)  4265 

COMMON  /P2/  L 1 . L2.L3.  L4.  MFRRME (10,2).  1PRRRM.  IRMIN(IO).  IRMRX(10).JR  4266 

IMIN(IO).  JRMRX(  1 0) . MPODE (10),  IPRR(IO).  IKT,  IKM.MFR.  IPRRT.NPTS.KLOG  4267 

COMMON  /P3/  ZZ.L11.LI2.L13.LI4. El. E2.E3.E4.  ISYM, KL 1 . KL2, KL3. KL4.PL  4268 

10.  IHMIN(20) . IHMRX(20) . JHMIN(20) . JHMRX(20) . MC0DE(20 ) . I HIST,  I CHECK.  M 4269 

20/IE.  IDET,  I VEL . RPV.  IL INE.  MZ0DE(20) . I ON  (3 ) . ISPRT,  IZMIN(20) . IZMRX(20  4270 

3) . JZMIN(20) . JZMRX(20) . DUM/RR(40) , VV.  I VX.  I VZ.  INUMM  427 1 

COMMON  /CMESH/  KMRX.  JMRX.  KP1 . JP1 . KP2.  JP2  4272 

C 4273 

C 4274 

JLO=l  4275 

JHIG=JP2  4276 

JMID1=0  4277 

10  JMID=(JL0+JHIG)/2  4278 

IF  (JMID1.EQ.JMID)  GO  TO  20  4279 

JMID1=JMID  4280 

ZX=Z(JMID)  4281 

IF  (ISYM.  EO.  1)  ZX=RBS(ZX)  4282 

IF  ( ZX.GE.X ) JHIG=JMID  4283 

IF  (ZX.LE.X)  JLO-JMID  4284 

JJ=JMID  4285 

GO  TO  10  4286 

20  IM 101=0  4287 
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JLO=l  4288 

IHIG=KP2  4289 

30  IMID=( IL0+IHIG)/2  4290 

IF  (I  MIDI.  EQ.  I MID)  GO  TO  40  4291 

IMID1=IMID  4292 

RR=R(  IMID)  4293 

IF  (ISYM.E0.2)  RR=RB5(RR)  4294 

IF  (RR.  GE.  Y)  IHIG=IMID  4295 

IF  (RR.  LE.  Y)  ILO-IMID  4296 

11= IMID  4297 

GO  TO  30  4298 

40  CONTINUE  4299 

RETURN  4300 

END  4301 

SUBROUTINE  SHRDE  (Ml. M2. M3. M4.  IQ)  4302 

C 4303 

C 4304 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4305 

C SHRDE  DR  GREY  LEVEL  SCRLING  4306 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4307 

C 4308 

C 4309 

DIMENSION  IPRTO(IB).  IPRT1  (16).  IPRT2(16),  IPRT3(16).  IPRT4(16).  4310 

1 IPRT5(  16),  IPRT6(  16),  IPRT7(16).  IPRT8(16).  IPRT9(16)  4311 

DIMENSION  XRRRRY(4).  YRRRRY(4)  4312 

DRTR  1PRT0/16*Z0000/  4313 

DR  TR  I PR  T1/7*Z0000.  ZOJ  00, 8*Z0000/  4314 

DRTR  IPRT2/4*Z0000,  Z0800,  7*ZOOOO.  ZOO  10, 3*Z0000/  43 1 5 

DRTR  IPRT3/3*Z0000.  Z1010.  7mZOOOO,  ZIOIO,  4mZ0000/  43 1 6 

DR TR  I PR T4/2*Z0000.  Z2020, 3*Z0000.  Z0202, 3*Z0000,  Z2020, 3*Z0000,  Z0202  4317 

l.ZOOOO/  4318 

DRTR  1PRT5/2*Z0000,  Z2222,  ZOOOO.  2*Z0000,  Z2222.  ZOOOO,  2*Z0000,  Z2222.  4319 

1ZOOOO.  2*Z0000,  Z2222.  ZOOOO/  4320 

DRTR  IPRT6/Z8888,  ZOOOO.  Z2222.  ZOOOO.  Z8888.  ZOOOO, Z2222.  ZOOOO . Z8888,  432 1 

1 ZOOOO.  Z2222.  ZOOOO. Z8888,  ZOOOO. Z2222. ZOOOO/  4322 

DRTR  IPRT7/ZRRRR,  ZOOOO.  Z5555.  ZOOOO.  ZRRRR.  ZOOOO. Z5555,  ZOOOO.  4323 

1ZRRRR,  ZOOOO.  Z5555,  ZOOOO.  ZRRRR.  ZOOOO.  Z5555.  ZOOOO/  4324 

DRTR  IPRT8/ZRRRR.  Z5555.  ZRRRR.  Z5555.  ZRRRR.  Z5555.  ZRRRR,  Z5555.  ZRRRR . Z 4325 

15555.  ZRRRR.  Z5555,  ZRRRR,  Z5555.  ZRRRR,  Z5555/  4326 

DRTR  IPRT9/16*ZFFFF/  4327 

XRRRR Y(l) =M1 /I 02.  3 4328 

XRRRR Y(2) =M3/1 02. 3 4329 

XRRRR Y( 3)  =M3/1 02. 3 4330 

XRRRR Y( 4) =M1 / 102.  3 4331 

YRRRR Y( 1) =M2/1 02.  3 4332 

YRRRR Y (2) =M2/1 02.  3 4333 

YRRRRY(3)  =M4/1 02.3  4334 

YRRRR Y (4)  =M4/1 02.  3 4335 

10=10-1  4336 

IF (10.  GT.  9)  10=9  4337 

IF (10.  EQ.  0)  CRLL  TDNE(0.  .0. , IPRTO. -16)  4338 

IFdO.EO.  1)  CRLL  TDNE(0.,0.,1PRT 1.-16)  4339 

IFdO.EO.  2)  CRLL  TONE (0.  ,0. . IPRT2.  -16)  4340 

IFdO.EO.  3)  CRLL  TDNE(0.  ,0. . IPRT3. -16)  4341 

IFdO.EO.  4)  CRLL  TDNE(0.  ,0. . IPRT4,  -16)  4342 

IFdO.EO.  5)  CRLL  TDNE(0.  ,0. . IPRT5. -16)  4343 

IFdO.EO.  6)  CRLL  TDNE(0. , 0. . IPRT6,  -16)  4344 

IFdO.EO.  7)  CRLL  TDNE(0.  ,0. . IPRT7.-16)  4345 

IFdO.EO.  8)  CRLL  TDNE(0. . 0. , IPRT8. -16)  4346 

IFdO.EO.  9)  CRLL  TDNE(0.  .0. , IPRT9.  -16)  4347 

CRLL  TONE ( XRRRR Y,  YRRRRY,  4.1)  4348 

RETURN  4349 

END  4350 

SUBROUTINE  LEVEL  (T.X.Y,  I I.JJ.S.LL.KK)  4351 
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C 4352 

C 4353 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4354 

C CONTOUR  PLOT  DEVELOPED  BY  RRO.  RRNOLD  RES . TENN.  4355 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4356 

C 4357 

C 4358 

DIMENSION  T(II.JJ).  X(II.JJ),  Y(II.JJ)  4359 

DIMENSION  S(KK).  LL(KK)  4360 

4361 

4362 

IMRX=I I- 1 4363 

JMRX=JJ-1  4364 

DO  480  J=1.JMRX  4365 

KR=0  4366 

IF  ((J/2)*2.EQ.J)  KR=1  4367 

DO  480  111=1. IMRX  4368 

/-///  4369 

IF  (KR.EQ.l)  I=IMRX+1-III  4370 

C ESTRBLISH  OURORILRTERRL  TO  BE  SERRCHED  4371 

XI=X(I,J)  4372 

X2=X(  I+l.J)  4373 

X3=X( 1+1 . J+l ) 4374 

X4=X(I.J+1)  4375 

Y1=Y(I,J)  4376 

Y2=Y( 1+1 , J)  4377 

Y3=Y(I+1.J+1)  4378 

Y4=Y( I,  J+l)  4379 

T1  = T(I.J)  4380 

T2=T(  I+l.J)  4381 

T3=T(  1+1 . J+l ) 4382 

T4=T(1.  J+l)  4383 

DO  480  M=1.KH  4384 

TISO-S(M)  4385 

L=LL(M)  4386 

S1  = TIS0-T1  4387 

S2=TIS0-T2  4388 

S3=TISD-T3  4389 

S4=T1S0-T4  4390 

S12=S1*S2  4391 

S23=S2*S3  4392 

S34=S3*S4  4393 

S41=S4*S1  4394 

K=1  4395 

IF  (SI)  20.10.20  4396 

10  K=2  4397 

KL=1  4398 

20  IF  (S2)  40.30.40  4399 

30  K=K+1  4400 

KL=2  4401 

40  IF  (S3)  60.50.60  4402 

50  K=K+1  4403 

KL=3  4404 

60  IF  (S4)  80.  70. 80  4405 

70  K=K+1  4406 

KL=4  4407 

80  GO  TO  (300.90. 140.270.270).  K 4408 

90  GO  TO  (100.110.120.130).  KL  4409 

100  CRLL  POINT  (S23.  S34.  S2.  S3.  T4.  T3.  T2.  XI.  Yl.  X2.  Y2.  X3.  Y3.  X4.Y4.L)  4410 

GO  TO  480  4411 

110  CRLL  POINT  (S34.S41.S3.S4.  Tl.  T4,  T3.X2.  Y2.X3.  Y3.X4.  Y4.X1.  Yl.L)  4412 

GO  TO  480  4413 

120  CRLL  POINT  (S41 . SI 2.  S4.  SI . T2.  Tl . T4.  X3.  Y3.  X4.  Y4,  X1.Y1.X2.Y2.L)  4414 

GO  TO  480  4415 
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130  CRLL  POINT  (S12.523.S1 ,52,  T3.  T2,  T1.X4.  Y4.X1,  Y1.X2,  Y2.X3.  Y3.L)  4416 

GO  TO  480  4417 

140  KLL=KL-1  4418 

GO  TO  (150.170,200).  KLL  4419 

150  CRLL  DRRV  (L.X1.  Y1.X2.  Y2)  4420 

IF  (S34.LT.0.)  GO  TO  160  4421 

GO  TO  480  4422 

160  TP=S3/(T4-T3)  4423 

PX1=X3+TP*(X4-X3)  4424 

PY1=Y3+TP*(Y4-Y3)  4425 

PX2=TP*(X1-X2)+X2  4426 

PY2=TP*(Y1-Y2)+Y2  4427 

GO  TO  470  4 428 

170  IF  (S2.E0.0.)  GO  TO  180  4429 

CRL L DRRV  (L.X1.Y1.  X3.  Y3)  4430 

GO  TO  480  4431 

180  CRLL  DRRV  (L.X3.  Y3.X2,  Y2)  4-432 

IF  (S41.LT.O.)  GO  TO  190  4433 

GO  TO  480  4434 

190  TP=S4/(T1-T4 ) 4435 

PXl  =X4+  TP*  (XI -X4)  4 4 36 

PY1=Y4+TP*(Y1-Y4)  4437 

PX2=TP*(X2-X3)+X3  4438 

P Y2=  TP*  ( Y2-  Y3)  + Y3  4439 

GO  TO  470  4 4 40 

200  IF  (S2)  220.210.220  4441 

210  CRLL  DRRV  (L.X2.  Y2.X4.  Y4)  4442 

GO  TO  480  4443 

220  IF  (S3)  250,230,250  4444 

230  IF  (J.EO.JMRX)  CRLL  DRRV  (L.X3,  Y3.X4.  Y4)  4445 

IF  (SI 2)  240.480,240  4446 

240  TP=S1/(T2-T1)  4447 

PX1=X1  + TP*(X2-X1)  4448 

PY1=Y1  + TP*(Y2-  Yl)  4449 

PX2=  TP*  ( X3-X4 ) +X4  4450 

P Y2=  TP*  ( Y3-  Y4)  + Y 4 4451 

GO  TO  470  4452 

250  IF  (I.EO.l)  CRLL  DRRV  (L.X1.Y1.X4.Y4)  4453 

IF  (S23)  260.480.480  4454 

260  TP=S2/( T3- T2)  4455 

PXl =X2+ TP* (X3-X2)  4456 

PY1= Y2+  TP*  ( Y3-  Y2)  4457 

PX2=TP*(X4-X1)+X1  4458 

PY2=TP*(Y4-Y1  )+Yl  4459 

GO  TO  470  4 460 

270  IF  (S2.NE.0.0)  GO  TO  280  4461 

IF  (SI . EQ.  0.  0)  CRLL  DRRV  (L , X2,  Y2.  XI.  Yl)  4462 

IF  (S3.  EQ.  0.  0)  CRLL  DRRV  (L.X2.Y2.X3.Y3)  4463 

280  IF  (J.NE.JMRX)  GO  TO  290  4464 

IF  (S4.NE.0.0)  GO  TO  480  4465 

IF  (S3.E0.0.0)  CRLL  DRRV  (L.X4.  Y4.X3.  Y3)  4466 

290  IF  (I.NE.l)  GO  TO  480  4467 

IF  (SI . EQ.  0. 0)  CRLL  DRRV  (L . X4.  Y4.  XI,  Yl)  4468 

GO  TO  480  4469 

C SERRCH  P1-P2  4470 

300  K=0  4471 

IF  (SI 2)  310.320,320  4472 

310  TP=S1/(T2-T1)  4473 

K=1  4474 

PX1=X1+TP*(X2~X1)  4475 

PY1=Y1  + TP*  ( Y2-  Yl ) 4476 

C SERRCH  P2-P3  4477 

320  IF  (S23)  330,360,360  4478 

330  TP=S2/(T3-T2)  4479 
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IF  (K)  340,350,340 

4480 

C CHECK  FDR  QURDRILRTERRL  VI TH  4 INTERSECTIONS 

4481 

340  IF  (S34.LT.  0.0.  RND.S4I.LT.  0.0)  GO  TO  430 

4482 

PX2=X2+TP*(X3-X2) 

4483 

PY2=Y2+TP*(Y3-Y2) 

4484 

GO  TO  470 

4485 

350  K=K+1 

4486 

PX1=X2+TP*(X3-X2) 

4487 

PY1=Y2+TP*(  Y3-  Y2) 

4488 

C SERRCH  P3-P4 

4489 

360  IF  (534)  370,400,400 

4490 

370  TP=S3/(T4-T3) 

4491 

XP=X4-X3 

4492 

YP=Y4-Y3 

4493 

IF  (K)  380,390,380 

4494 

380  PY2=Y3+TP>*YP 

4495 

PX2=X3+ TPmXP 

4496 

GO  TO  470 

4497 

390  K=K+1 

4498 

PY1=Y3+TP*YP 

4499 

PX1=X3+TP*XP 

4500 

C SERRCH  P4-PI 

4501 

400  IF  (S41)  410,480,480 

4502 

410  IF  (K)  420 . 480,  420 

4503 

420  TP=S4/(T1-T4) 

4504 

PX2=X4+TP*(X1-X4) 

4505 

PY2=Y4+TP*(Yl-Y4) 

4506 

GO  TO  470 

4507 

430  TP=S3/(T4-T3) 

4508 

PX2=X3+TP*(X4-X3) 

4509 

IF  ( (PXI  -XI  )/(X2-Xl ) - ( PX2-X4)/( X3-X4 ) ) 440. 450. 460 

4510 

440  TP=S4/(T1-T4) 

4511 

PX2=X4+TP*(X1-X4) 

4512 

PY2=Y4+TP*(Y1-Y4) 

4513 

CRLL  DRRV  (L.PX1.PY1. PX2. PY2) 

4514 

TP=S2/(T3~T2) 

4515 

PXI  =X2+  TP*(  X3-X2) 

4516 

PY1= Y2+  TP*(  Y3-  Y2) 

4517 

TP=S3/(T4-T3) 

4518 

PX2=X3+ TP# ( X4-X3) 

4519 

PY2=Y3+TP*(Y4-Y3) 

4520 

GO  TO  470 

4521 

450  PY2=Y3+TP*(Y4-Y3) 

4522 

CRLL  DRRV  (L.PXl.PYl, PX2, PY2) 

4523 

TP=S2/(T3-T2) 

4524 

PXI =X2+ TP&( X3-X2) 

4525 

PY1=Y2+TP*(Y3-Y2) 

4526 

TP=S4/(T1-T4) 

4527 

PX2=X4 + TP® (XI -X4 ) 

4528 

PY2=Y4+TP®(Y1-Y4) 

4529 

GO  TO  470 

4530 

460  TP=S2/(T3-T2) 

4531 

PX2=X2+TPx(X3-X2) 

4532 

P Y2=  Y2+  TP*  ( Y3-  Y2) 

4533 

CRLL  DRRV  (L.PXl .PYl.PX2.PY 2) 

4534 

TP=S3/(T4-T3) 

4535 

PXl=X3+  TPm(X4-X3) 

4536 

PY1=Y3+TP«(Y4-Y3) 

4537 

TP=S4/(T1-T4) 

4538 

PX2=X4  + TP®  ( XI -X4  ) 

4539 

P Y2=  Y 4 + TP»  (YI-Y4) 

4540 

470  CRLL  DRRV  (L.PXl, PYl.PX2.PY2) 

4541 

480  CONTINUE 

4542 

RETURN 

4543 
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END  4544 

SUBROUTINE  POINT  ( S23 . S34.  S2,  S3,  T4,  T3,  T2.  XI.  Yl,  X2.  Y2,  X3.  Y3.  X4,  Y4,  L 4545 

1>  4546 

C 4547 

E 4548 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4549 

C SETTING  UP  CONTOURS  4550 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  455 1 

c 4552 

C 4553 

KT=1  4554 

IF  (S23)  10,20,20  4555 

10  KT=2  4556 

TP=S2/(T3-T2)  4557 

PX1  =X2+ TP* (X3-X2)  4558 

PY1=Y2+  TP*  (Y3-Y2)  4559 

20  IF  (S34)  30.40.40  4560 

30  TP=S3/(T4-T3)  4561 

KT=KT+2  4562 

40  GO  TO  (90,60,50.70),  FT  4563 

50  PX1=X3+ TP* ( X4-X3)  4564 

PY1=Y3+  TP*  ( Y 4-  Y3)  4565 

60  PX2=X1  4566 

PY2=Y1  4567 

GO  TO  80  4568 

70  PX2=X3+ TP* (X4-X3)  4569 

PY2=Y3+TP*(Y4-Y3)  4570 

80  COLL  DRRy  (L.PXl ,PY1  .PX2.PY2)  4571 

90  RETURN  4572 

END  4573 

SUBROUTINE  DRRV  (L , PX1.PY1 , PX2.  PY2)  4574 

C 4575 

C 4576 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4577 

C DRRUS  CONTOUR  4578 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4579 

C 4580 

C 4581 

COMMON  /MOVE/  XX(4).  YY(4)  4582 

4583 

4584 

I l=PXl*I02.  3 4585 

I2=PY1*102. 3 4586 

I3=PX2*102.  3 4587 

I4=PY2*102. 3 4588 

CRLL  LINEV  ( 1 1 . 12. 13, 14)  4589 

RETURN  4590 

END  4591 

SUBROUTINE  THREED  4592 

0 4593 

C 4594 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4595 

C SETS  UP  THREE-DIMENS  I ONRL  PLOTS  4596 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4 597 

0 4598 

C 4599 

COMMON/P  1 /XGRRPH (45) , ZGRRPHC225) , XVEL  T(45, 225),ZVEL  T(45, 225),  4600 

1SH(45, 225) , DR (45), DZ (225) , N0LINK45,225),N0LIN2(45,225),  ILOV,  4601 

1 1 HIGH.  JLOV,  JHIGH,  XLOV,  XHIGH,  ZLOV.  ZHIGH.  ML  (10) , MDIM(IO) , NCYCLE,  ISC.  4602 

20MN(525),XLF(225),  YLF(225).  IPLOU.  IPHIGH.  JPLOV,  JPHIGH.  XPT(50, 11),  4603 

3YPT(50, 11 ) 4604 

COMMON  / P2 / LI ,L2,L3,L4,MFRRME(  10, 2),  IPRRRM.  IRMIN(IO).  IRMRX(10).JR  4605 

1MIN(10).  JRMRX (10),  MPODE (10),  IPRR(IO).  IKT,  IKM,  MFR,  IPRRT,  NPTS.  FLOG  4606 

COMMON  / P3 / ZZ.LI1. LI2.LI3.LI4. El. E2.E3, E4.ISYM.KL1.KL2.KL3.KL4.PL  4607 


349 


e-)  c->  r>  r> 


AEDC-TR-77-105 


ID.  IHMIN(20) . IHMRX(20) . JHMIN(20) . JHMAX(20) , MCODE(20 ) . I HIST,  I CHECK,  M 4608 

20V IE,  WET.  I VEL . RPV,  IL INE,  MZODE<20 ) . IDN(3) , ISPRT,  IZMIN(20) , IZMRXC20  4609 

3) , JZMIN( 20) > JZMRX ( 20) , DUM VRR( 40) , VU.IVX.  IVZ,  INUMM  4610 

COMMON  /P4/  HRSK ( 2000) , VERTEX (16),XC( 45) , ZG<225) , YY(225), XXG(225),  461 1 

1ZSH(0 1,001)  4612 

4613 

4614 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4615 

SETS  UP  "X.  Y.Z"  DRTR  FOR  WO  INDIVIDUAL  3-D  PLOT  PRCKRGES  4616 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4617 

ID3=1  4618 

IH1GH=IHIGH+1  4619 

JHIGH=JHIGH+1  4620 

NRA=IHIGH  4621 

NCR=JHIGH  4622 

I0PT=0  4623 

ICROSS=l  4624 

XI =1  4625 

X2=NRA+1  4626 

Yl=l  4627 

Y2=NCA+1  4628 

SCL  -0.  5 4629 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4630 

C PRCKRGE  "ONE"  4631 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXMX  4632 

CALL  FRRMEV  (3)  4633 

X0=5.  4634 

Y0=12.  4635 

CN1=45.  4636 

CN2=225.  4637 

DO  10  J=1.JHIGH  4638 

IF  (J.GT.l)  ZGG=ZGRRPH (J-l)  +DZ (J-l )/2.  4639 

IF  (J.EO.l)  ZGG=ZGRRPH ( J)  -DZ ( J)/2.  4640 

CALL  NX  VO  SB  (3.  ZGG.  T.  Ml ) 464 1 

ZG(J)=(M1-150)/102. 3+1.  4642 

10  CONTINUE  4643 

DO  20  1=1, 1 HIGH  4644 

IF  (I.GT.l)  XGG=XGRAPH (1-1 ) +DR ( I- 1 )/2.  4645 

IF  (I.EQ.l)  XGG=XGRAPH(I)-DR(l)/2.  4646 

CALL  NXVOSB  (4.XGG.T.M1)  4647 

XG( I )=(M1-150)/102.  3+1.  4648 

20  CONTINUE  4649 

KPH=IHIGH  4650 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4651 

C CROSS-HATCH  LINES  RUNNING  IN  ONE  DIRECTION  4652 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxxx  4653 

DO  40  NLINE=1,KPH  4654 

NL IN=NL INE  4655 

XX=XG<  NL  INE ) 4656 

DO  30  NJ=l.JHlGH  4657 

M=NL  IN  4658 

N=NJ  4659 

MM1-M-1  4660 

NM1=N-1  4661 

IF  (M.EQ.l)  MM1=M  4662 

IF  (N.EQ.l)  NM1=N  4663 

IF  (M.EQ.IHIGH)  M=MM1  4664 

IF  (N.EQ.JHIGH)  N=NM1  4665 

YY(NJ)=1.  4666 

NPP=0  4667 

IF  (NOLIN1  (M,N).GT.  1.0R.N0LIN1(MM1,N).GT.  1 . OR.  NDL  INI  (MM1 , NM1  >.GT.  1 4668 

1 . DR.  NOL  INI  (M,  NMD.GT.l)  NPP=1  4669 

IF  (NPP.EQ.O)  YY(NJ)=(SH(M,  N)  +SH(MM1 , N)  +SH(MM1 , NM1 ) +SH(M,  NMl ) >/4.  at  4670 

1SCL+1.  4671 
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30  CONTINUE  4672 

COLL  PL0T3D  (001 1 . XX.  YY.ZG.  0. . 1.  ,1. , NL INE.  JHIGH.  CN1 . CN2.  XO,  YO.  10. . 4673 

1MRSK.  0)  4674 

40  CONTINUE  4675 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4676 

C CROSS-HRTCH  LINES  RUNNING  IN  THE  OTHER  DIRECTION  4677 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4678 

DO  60  NL  INE=1 . JHIGH  4679 

ZZ=ZG(NLINE)  4680 

DO  50  NI =1 , KPH  4681 

NL  IN=NI  4682 

M=NI  4683 

N=NL  INE  4684 

MM1=M-1  4685 

NM1=N-1  4686 

IF  (M.EQ.l)  MM1=M  4687 

IF  (N.EO.l)  NH1=N  4688 

IF  (M.EQ.l HIGH)  M=MM1  4689 

IF  (N.EQ.  JHIGH)  N=NM1  4690 

YY(NI)=1.  4691 

NPP=0  4692 

IF  (NOL  INI  (M.  N).  GT.  1.  OR.  NOL INI  (MM1  .N).GT.1.0R.  NOL  INI (MM1  .NM1).  GT.  1 4693 

1 . OR.  NOLIN1  (M.NM1 ).  GT.  1 ) NPP=1  4694 

IF  (NPP.  EQ.  0)  YY(NI)= (SH(M.  N)  +SH(MM1 . N)  +SH(MM1 . NM1 ) +SH(M.  NM1 ) )/4.  x 4695 

1SCL+1.  4696 

C ZSH(NI.NLINE)=YY(NI)  4697 

50  CONTINUE  4698 

CRLL  PL0T3D  (1 1 10.  XG.  YY.ZZ.  1 . . 1 . .0. . NL  INE.  KPH.  CN1 . CN2.  XO.  YO.  10. . MR  4699 

1SK.  VERTEX)  4700 

60  CONTINUE  4701 

CRLL  FRRMER  (3.  VERTEX.  MRSK)  4702 

IHIGH=IHIGH-1  4703 

JHIGH=JHIGH- 1 4704 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  4705 

C PRCKRGE  "TWO"  4706 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4707 

IF  (ID3.EQ.1)  RETURN  4708 

IVIEW=1  4709 

CRLL  PL  TMTX  ( ZSH . NRR.  NCR.  I VIEW.  I OPT.  I CROSS.  XI . X2.  Y1 . Y2)  47 1 0 

RETURN  4711 

END  4712 

SUBROUTINE  PLOT3D  (I VXYZ.  XDRTR.  YDRTR.  ZDRTR.  XSCRLE.  YSCRLE . ZSCRLE.  NL  4713 

1 INE.  NPNTS.  PHI.  THETR.  XREF.  YREF.  XLENTH.  MRSK.  VERTEX)  47 1 4 

C 4715 

C 4716 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4717 

C 3-D  PLOT  ROUTINE  DEVELOPED  BY  THE  U OF  TEXRS.  MRTH  DEPT.  4718 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  47 1 9 

C 4720 

C 4721 

INTEGER  HIGH.  OLDHI.  OLDLOW  4722 

DIMENSION  XDRTR(l).  YDRTR(l).  ZDRTR(l).  MRSK(l).  VERTEX! 1)  4723 

DRTR  I NIT,  JVXYZ.  SPHI.  STHETR/-1.  -1.  -1.0E70,  -1.  0E70/  4724 

C 4725 

C 4726 

IF  (NLINE.EQ.O)  GO  TO  640  4727 

IF  (NLINE.NE.l)  GO  TO  20  4728 

PIP  I =100.0  4729 

NYPI=1090  4730 

I=NYPI+100  4731 

CRLL  PLOT  (0.0. 0.0. -3)  4732 

L IMI  TX=XLENTH*PlPl+0. 5 4733 

I=LIMITX+LIMITX  4734 

DO  10  K=l.  I 4735 
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MRSK(K)=INIT  4736 

10  CONTINUE  4737 

1NIT=-1  4738 

INCI=-1  4739 

1=0  4740 

20  IF  (JVXYZ.  EO.  IVXYZ)  GO  TO  70  4741 

JVXYZ=IVXYZ  4742 

INDZ=1  4743 

INDY=1  4744 

INDX=1  4745 

INDV=1  4746 

IF  (JVXYZ.LT.  1000)  GO  TO  30  4747 

INDV=2  4748 

JVXYZ= JVXYZ- 1000  4749 

30  IF  (JVXYZ.  L T.  100)  GO  TO  40  4750 

INDX=2  4751 

JVXYZ=JVXYZ-100  4752 

40  IF  (JVXYZ.LT.  10)  GO  TO  SO  4753 

INDY =2  4754 

JVXYZ= JVXYZ- 10  4755 

50  IF  (JVXYZ.LT.  1)  GO  TO  60  4756 

1NDZ=2  4757 

60  JVXYZ=  IVXYZ  4758 

70  IF  (PHI.  EO.  SPHI.  RNO.  THETR.EO.STHETR)  GO  TO  80  4759 

SPHI=SIN(.  01 74533*PHI)  4760 

CPHI=CD5(.  01 74533*PHI)  476 1 

STHETR=SIN(.0174533*THETR)  4762 

CTHETR=C0S(.0174533*THETR)  4763 

R1 1=CPH I 4764 

R13=-SPHI  4765 

R21=STHETR*SPHl  4766 

R22=CTHETR  4767 

R23=S THE TR*CPH1  4768 

SPHI=PHI  4769 

5THETR=THETR  4770 

80  INCI=-INCI  4771 

IF  (I.NE.O)  I=NPNTS+1  4772 

DO  620  K=1 , NPNTS  4773 

1=1+1  NCI  4774 

GO  TO  (90.100),  INDX  4775 

90  X=XDRTR(l)  + (I-l)mX5CRLE  4776 

GO  TO  110  4777 

100  X=XDRTR(I)*XSCRLE  4778 

110  GO  TO  (120.130).  INOY  4779 

120  Y=YDRTR(1)  + (I-1)mYSCRLE  4780 

GO  TO  140  4781 

130  Y=YDRTR(I)mY5CRLE  4782 

140  GO  TO  (150.160).  INDZ  4783 

150  Z=ZDRTR(1)  + (NLINE-1)*ZSCRLE  4784 

GO  TO  170  4 785 

160  Z=ZDRTR(I)mZ5CRLE  4786 

1 70  XXX=R1 1 *X+R1 3*Z+XREF  4787 

XX=XXX  4788 

IF  (XX)  180.190.190  4789 

180  IX=IFIX(XX*PIPI-0.5)  4790 

GO  TO  200  4791 

190  IX=IFIX(XX*PIPI+0.5)  4792 

200  CONTINUE  4793 

YYY=R21*X+R23*Z+YREF  4794 

YY=YYY+R22*Y  4795 

IF  (YY)  210.220.220  4796 

210  IY=IFIX(YY*PIPI-0.5>  4797 

GO  TO  230  4798 

220  I Y=IFIX(  YY»PIPI+0. 5)  4799 
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230  CONTINUE 

4800 

IF  (IX.LE.O)  IX=1 

4801 

IF  ( IX.  GT.LIMITX)  IX=LIMITX 

4802 

IF  (IY.LT.10)  IY=10 

4803 

IF  (IY.GT.NYPI)  IY=NYPI 

4804 

IF  (K.NE.l)  GO  TO  310 

4805 

LOU=IX+IX 

4806 

HIGH=LOy-l 

4807 

ML  Oy=MR5K  ! L OV) 

4808 

MHIGH=MA5K  (HIGH) 

4809 

IF  (MHIGH-IY)  260,270.240 

4810 

240  IF  ( MLOV-IY ) 250.290.280 

4811 

250  LOCOLD=0 

4812 

GO  TO  300 

4813 

260  MR5K!HIGH)=IY 

4814 

IF  (MLOy.EO.-l)  MASK!LOV)=IY 

4815 

270  LOCOLD=+l 

4816 

GO  TO  300 

4817 

280  MF!5K(LOy)=IY 

4818 

290  LOCOLD=-l 

4819 

300  G1=IX/100. 

4820 

G2=IY/100. 

4821 

COLL  PLOT  (G1.G2.3) 

4822 

JX=IX 

4823 

JY=IY 

4824 

IYREF=IY 

4825 

IF  (INDV.EQ.l)  GO  TO  620 

4826 

INDEX=INCI+6 

4827 

VERTEX!  INDEX)  =XX 

4828 

VERTEX! INDEX+1 )=YY 

4829 

VER  TEX!  I NDEX+8) -XXX 

4830 

VERTEX! 1NDEX+9)=YYY 

4831 

IF  INLINE.  NE.  1)  GO  TO  620 

4832 

VERTEX!  1)=XX 

4833 

VERTEX!2)=YY 

4834 

VERTEX!  9 7 -XXX 

4835 

VERTEX!  10)=YYY 

4836 

GO  TO  620 

4837 

310  IF  !IX.  NE.  JX)  GO  TO  320 

4838 

JY=IY 

4839 

GO  TO  370 

4840 

320  YINC=FLORT!  I Y-JY)/RBS ! FLOAT! IX-JX) ) 

4841 

INCX=!  IX-JX)/IRBSI  IX-JX) 

4842 

YJ=JY 

4843 

330  JX=JX+INCX 

4844 

YJ=YJ+YINC 

4845 

IF  IYJ)  340.350.350 

4846 

340  JY=IFIX!YJ-0. 5) 

4847 

GO  TO  360 

4848 

350  JY=IFlX!YJ+0. 5) 

4849 

360  CONTINUE 

4850 

LOy=JX+JX 

4851 

HlGH=LOy-l 

4852 

MLOy=MR5K!LOy) 

4853 

MHIGH-MRSK I HIGH) 

4854 

370  IF  (MHIGH-JY)  390,390.380 

4855 

380  IF  IMLOV-JY)  400,410,410 

4856 

390  LOC=+l 

4857 

IF  YLOCOLD)  450.460.520 

4858 

400  LOC=0 

4859 

IF  ILOCOLD)  430.440.420 

4860 

410  LOC=-l 

4861 

IF  ILOCOLD)  600.540.530 

4862 

420  G1=JX/100. 

4863 
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G2=MHIGH/1 00.  4864 

IF  (MHIGH.  LE.  IYREF)  CRLL  PLOT  ( G1,G2,2 ) 4865 

GO  TO  440  4866 

430  G2=ML0H/100.  4867 

IF  (MHIGH.  GE.  IYREF)  CRLL  PLOT  (G1.G2.2)  4868 

440  G1=JX/100.  4869 

G2=JY/100.  4870 

CRLL  PLOT  (G1.G2.3)  4871 

GO  TO  610  4872 

450  IF  (MLOH- IYREF)  460,470.470  4873 

460  IF  (MHIGH- IYREF)  490.480.480  4874 

470  G1=JX/100.  4875 

G2=ML0H/100.  4876 

CRLL  PLOT  (G1.G2.2)  4877 

480  G1=JX/100.  4878 

G2=MHIGH/1 00.  4879 

CRLL  PLOT  (G1.G2.3)  4880 

GO  TO  520  4881 

490  IF  (MHIGH.  EQ.-l)  GO  TO  520  4882 

DLDHI=HIGH-2*INCX  4883 

IF  (MRSK(OLDHI)-JY)  510.510.500  4884 

500  Gl-JX/100.  4885 

G2=JY/100.  4886 

CRLL  PLOT  (G1.G2.3)  4887 

GO  TO  520  4888 

510  Gl=( JX- I NCX)/1 00.  4889 

G2-MRSK  (DLDHD/IOO.  4890 

CRLL  PLOT  (G1.G2.3)  4891 

520  MRSK(HIGH)=JY  4892 

IF  (MLOH.EO.-l)  MRSK(LDH)=JY  4893 

G1=JX/100.  4894 

G2=JY/100.  4895 

CRLL  PLOT  (G1.G2.2)  4896 

GO  TO  610  4897 

530  IF  (MHIGH- IYREF)  550.550.540  4898 

540  IF  (ML OH- IYREF)  560,560.570  4899 

550  G1=JX/100.  4900 

G2-MHIGH/100.  4901 

CRLL  PLOT  (G1.G2.2)  4902 

560  G1=JX/100.  4903 

G2=ML0H/100.  4904 

CRLL  PLOT  (G1.G2.3)  4905 

GO  TO  600  4906 

570  DLDL0H=L0H-2*1NCX  4907 

IF  ( MRSK ( OLDLOH) -JY)  580.590,590  4908 

580  G1=JX/100.  4909 

G2=JY/100.  4910 

CRLL  PLOT  (G1.G2.3)  4911 

GO  TO  600  4912 

590  Gl= (JX- INCX)/1 00.  4913 

G2=MRSK  ( OL  DL  OH)  / 100.  4914 

CRLL  PLOT  (G1.G2.3)  4915 

600  MRSK (LOH)-JY  4916 

G1=JX/100.  4917 

G2=JY/100.  4918 

CRLL  PLOT  (G1.G2.2)  4919 

610  IYREF=JY  4920 

LOCOLD=LOC  4921 

IF  (JX.  NE.  IX)  GO  TO  330  4922 

620  CONTINUE  4923 

G1=JX/100.  4924 

G2=JY/100 . 4925 

CRLL  PLOT  (G1.G2.3)  4926 

IF  (INDV.EQ.  1)  GO  TO  630  4927 
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INDEX- -I NCI +6  4928 

VERTEX ( INDEX)=XX  4929 

VERTEX! INDEX+1 )=YY  4930 

VERTEX! INDEX+8)=XXX  4931 

VERTEX!  INDEX+9)=YYY  4932 

IF  !NLINE.NE.  1)  GO  TO  630  4933 

VERTEX!3)=XX  4934 

VERTEX!  4 )=YY  4935 

VERTEX! ll)=XXX  4936 

VERTEX! 12)=YYY  4937 

630  1=1-1  4938 

RETURN  4939 

640  INIT=0  4940 

RETURN  4941 

END  4942 

SUBROUTINE  FRRMER  TIHCOR.  VERTEX.  MRSK)  4943 

4944 

4945 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4946 

DRRWS  FRRME  RBOUT  3-D  PLOT  4947 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  4948 

4949 

4950 

DIMENSION  VERTEX!  1).  MRSK !1)»  RRRRY! 14)  4951 

I=2*IHC0R  4952 

IF  H.LT.2)  1=2  4953 

IF  H.GT.8)  1=8  4954 

RRRRY  ! 1 ) =VERTEX!  I - 1 > 4955 

RRRR Y!8)= VER TEX !I)  4956 

RRRRY  !2)=VERTEX!  1+7)  4957 

RRRRY! 9) = VER TEX ! 1+8)  4958 

RRRRY !4)=RRRRY!2)  4959 

RRRRY! 11)=RRRRY!9)  4960 

RRRRY !6)=RRRRY!2)  4961 

RRRRY! 13) =RRRRY!9)  4962 

RRRRY!7)=RRRRY!1)  4963 

RRRRY !14)=RRRRY!8)  4964 

1=1-2  4965 

IF  H.EQ.O)  1=8  4966 

RRRRY!3)=VERTEX! 1+7)  4967 

RRRRY! 10) =VERTEX! 1+8)  4968 

1=1+4  4969 

IF  H.GT.8)  1=1-8  4970 

RRRR  Y!5)=VERTEX!  1+7)  4971 

RRRRY!  12)=VERTEX! 1+8)  4972 

CRLL  PL0T3D  !110.  RRRRY.  RRRRY !8) .0.0. 1.0. 1.0,0. 0. 2.  7. 0. 0. 0. 0. 0. 0. 0.  4973 

10. 0.0,  MRSK,  0)  4974 

CRLL  PLOT  !VERTEX!I-1).VERTEX!I),3)  4975 

1=1-2  4976 

DO  10  J=l,3  4977 

1=1+2  4978 

IF  ! I.EO.  10)  1=2  4979 

CRLL  PLOT  ! VERTEX!  1+7).  VERTEX! 1+8).  2)  4980 

10  CONTINUE  4981 

CRLL  PLOT  !VERTEX!I-1).VERTEX!I),2)  4982 

1=1-2  4983 

IF  a.EO.O)  1=8  4984 

CRLL  PLOT  !VERTEX!I-1),VERTEX!I).3)  4985 

CRLL  PLOT  !VERTEX!  1+7).  VERTEX! 1+8). 2)  4986 

RETURN  4987 

END  4988 

SUBROUTINE  PL  TMTX  !R.  NRR.  NCR.  I VIEV.  I OPT.  I CROSS.  XI . X2.  Yl , Y2)  4989 

4990 

THIS  IS  R 3-0  PLOT  PRCKRGE!2ND)  DEVELOPED  BY  RDTC,  EGLIN  RFB.FL . 4991 
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C 4992 

C 4993 

C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  4994 

C 4995 

C 4996 

C THIS  IS  R GENERRL  PURPOSE  ROUTINE  FOR  MRKING  RN  OBLIQUE  PLOT  OF  4997 

C R MRTRIX  OF  VRLUES.  IT  USES  PLT3D1  TO  RCTURLLY  PLOT  THE  DRTR.  4998 

C 4999 

C R - INPUT  RRRRY  TO  BE  PLOTTED.  5000 

C NRR=NUMBER  OF  ROUS  IN  R 5001 

C NCR=  NUMBER  OF  COLUMNS  IN  R 5002 

C I VIEW  INDICRTES  VIEWING  RNGLE  5003 

C = 1,  INDICRTES  VIEW  FROM  BOTTOM  TO  TOP  5004 

C = 2.  INDICRTES  VIEW  FROM  RIGHT  TO  LEFT  5005 

C =3,  INDICRTES  VIEW  FROM  TOP  TO  BOTTOM  5006 

C = 4.  INDICRTES  VIEW  FROM  LEFT  TO  RIGHT  5007 

C IOPT  = 0,  INDICRTES  USE  DEFRULT  SCRLING  FOR  VERTICRL  SCRLE  5008 

C IOPT  = I,  INDICRTES  VERTICRL  SCRLE  WILL  BE  SET  BY  PRDGRRMMER  (WTO  5009 

C INTERVAL  RT  WHICH  POINTS  BETWEEN  CURVES  WILL  BE  CONNECTED  (USURLL  5010 

C XI  = VRRIRBLE  ASSIGNED  TO  LAST  ROW  5011 

C X2=  VRRIRBLE  ASSIGNED  TO  FIRST  ROW  5012 

C YI=  VRRIRBLE  ASSIGNED  TO  FIRST  COLUMN  5013 

C Y2=  VRRIRBLE  ASSIGNED  TO  LAST  COLUMN  5014 

C NOTE-  IF  DO  NOT  WISH  TO  ASSIGN  VARIABLES,  THEN  5015 

C SET  X1=NRR,  X2=l,  Yl=l,  Y2=NCR.  5016 

C 5017 

C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  5018 

DIMENSION  R(NRR.NCR)  5019 

COMMON  /MRXVRL/  UFDR.  UBRCK.  VLEFT,  VRIGHT,  WBOT,  WTOP,  THETR,  URXIS,  VAX  I 5020 

IS,  UVPLNE,  I U( 2, 2) , IV (2, 2),  IW(2,2),JLRB  5021 

DIMENSION  V(ISO),  W(I50)  5022 

PRINT  160,  NRR . NCR,  I VIEW,  IOPT,  I CROSS,  XI , X2,  Yl , Y2  5023 

ZMIN=9999999.  5024 

DX=  (X2-X1  )/(NRR- 1 ) 5025 

DY=(Y2-  Yl  )/(NCR-l ) 5026 

JLAB=0  5027 

ZMRX=-999999.  5028 

DO  10  1=1.  NRR  5029 

DO  10  J=1 . NCR  5030 

ZMRX=RMRX1  (ZMRX.  R(I.J))  503 1 

ZMIN=RMIN1  (ZMIN.  R(I.J))  5032 

10  CONTINUE  5033 

IF  (I  VIEW.  GT.  4.  OR.  IVIEW.LT.  1)  IVIEW=1  5034 

IF  (IOPT.  EQ.l)  GO  TO  20  5035 

WTOP =2.  *ZMRX  5036 

WBOT=ZMIN  5037 

WBDT=-2. 5 5038 

WTDP=12.  5 5039 

THETR=.  7854  5040 

20  CONTINUE  5041 

UVPLNE=WBOT  5042 

IF  (ZMIN.  LE.O.  AND.  ZMRX.  GE.O)  UVPLNE=0. 0 5043 

CL IPU=99999999.  5044 

CL IPD=-999999999.  5045 

XNDI SE=0.  0 5046 

GO  TO  (30.40,50.60),  I VIEW  5047 

30  UF0R=X2  5048 

UBRCK=X1  5049 

DELU=-DX  5050 

DEL  V=DY  5051 

VLEFT=Y1  5052 

VRIGHT =Y2  5053 

GO  TO  70  5054 

40  UF0R=Y2  5055 
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UBRCK=Y1  5056 

DELU=-DY  5057 

DEL V=-DX  5058 

VLEFT=X2  5059 

VRIGHT=X1  5060 

GO  TO  70  5061 

50  UFOR=Xl  5062 

UBRCK-X2  5063 

DELU=DX  5064 

DEL  V=-DY  5065 

VLEFT=Y2  5066 

VRIGHT=Y1  5067 

GO  TO  70  5068 

60  UFOR-Y1  5069 

DELU=DY  5070 

UBRCK=Y2  5071 

DEL  V=DX  5072 

VLEFT=X1  5073 

VRIGHT=X2  5074 

70  CONTINUE  5075 

URXI5=VLEFT  5076 

VRXIS=UBRCK  5077 

DO  80  1=1.150  5078 

80  W(I)=WBDT  5079 

NCURV=RB5(  ( UFOR- UBRCK ) /DEL U ) + 2 . 5 5080 

NPT5=RBS((  VRIGHT-  VLEFT)/DEL  V)  *2. 5 508 1 

DO  150.  I=1.NCURV  5082 

U=UF0R+(I-2.)*DELU  5083 

IF  (I.EO.l)  U=UFOR  5084 

DO  140  J=1,NPTS  5085 

V(J)=VLEFT+(J-1.  )mDEL  V 5086 

IF  (J.EO.NPTS)  V(J)=V(J-1)  5087 

IF  (I.EO.l.  DR.  J.EO.NPTS)  GO  TO  140  5088 

GO  TO  ( 90.100,110,120 ).  I VIEW  5089 

90  1 1 =NRR-  ( 1-2)  5090 

JJ=J  5091 

GO  TO  130  5092 

100  JJ=NCR- ( 1-2)  5093 

I I=NRR- (J-l ) 5094 

GO  TO  130  5095 

110  11=1-1  5096 

JJ=NCR-(J-1 ) 5097 

GO  TO  130  5098 

120  JJ=I-1  5099 

II=J  5100 

130  CONTINUE  5101 

C PRINT  9004.  NCURV.  NPTS.  I.  J.ll.JJ  . I VIEW  5 1 02 

W(J)=R( 1 1 . JJ)  5103 

IF  (W(J).GT.  CLIPU)  W(J)=CLIPU  5104 

IF  (W(J).LT.  CL  I PD)  W(J)=CLIPD  5105 

IF  ( RB5 (W(J)).LT. XNDISE ) W(J)=XNOISE  5106 

140  CONTINUE  5107 

IPRSS=ICR05S  5108 

IF  (I.EO.l)  IPR55=-1  5109 

CRLL  PL  T3D1  (U.  V.  W.  IPRSS , NPTS)  5110 

150  CONTINUE  5111 

DEL  W=(W  TOP-  WBO  T)/ 10.  5112 

NLV=(NPTS-1)/15+1  5113 

NL U= (NCUR V- 1 )/20+ 1 5114 

CRLL  PLT3D1  ( UBRCK , DEL  W,  0.0, -6,1)  5115 

CRLL  PLT3D1  (UBRCK,  DELU.  0.0,  -8.NLU)  5116 

RETURN  5117 

C 5118 

160  FDRMRT  (IX.  515. 4F10.  4)  5119 
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END  5120 

SUBROUTINE  PL  T3D1  (UR,  VR.  HR,  IPRSS,  NPT)  5121 

C 5122 

C 5123 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  5124 

C 3-D  PLOT  PRCKRGE  CONTINUED  5125 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  5 1 26 

C 5127 

C 5128 

COMMON  /CLRSF/  ICLRSS,  TITLE (7)  5129 

C 5130 

C THIS  SUBROUTINE  I/ILL  MRKE  OBLIQUE  PLOT  OF  V VS  V FUNCTION  FOR  5131 

C R GIVEN  U.  5132 

C 5133 

C U=  VRLUE  OF  INDEPENDENT  VRRIRBLE  U FDR  R GIVEN  V VS  V FUNCTION.  5134 

C VR  - ONE  DIMENSIONRL  RRRRY  CONTAINING  INDEPENDENT  VRRIRBLE  V.  5135 

C VA=ONE  DIMENSIONAL  RRRRY  CONTAINING  DEPENDENT  VRRIRBLE  V.  5136 

C VA(1)=  F(U.VAd))  5137 

C NPTS=  NO.  OF  PTS  IN  VR.  VR  ARRAYS.  5138 

C 5139 

C NOTE  : NPTS=IRBS(NPT)  5140 

C IF(NPT.LTO)  THEN  VR(I)=F(UR(I),VR(I))  5141 

C 5142 

C IPRSS=-1  IF  THIS  IS  FIRST  CALL  FDR  NEV  FRAME.  5143 

C IPRSS  = -6  DRRV  LINES  FDR  V SCALE  AND  LABEL  V SCALE  5144 

C VR(1)  IS  DELTA  V FOR  LABELING  5145 

C NPTS  = LABEL  EVERY  NPTS  LINE  5146 

C IPRSS  = -7  DRRV  LINES  FOR  V SCALE  AND  LABEL  V SCALE  5147 

C VAC  1 ) IS  DELTA  V FOR  LABELING  5148 

C NPTS  = LABEL  EVERY  NPTS  LINE  5149 

C IPRSS  = -8  LABEL  U SCALE  5150 

C VA(1)  IS  DELTA  U FOR  LABELING  5151 

C NPTS  = LABEL  EVERY  NPTS  LINE  5152 

C IPRSS  = -2  HIDDEN  LINES  ARE  NOT  ELIMINATED,  5153 

C NOT  CONNECTED  TO  PREVIOUS  LINE  5154 

C JLAB  IS  ALPHA  LABEL  FDR  U SCALE  5155 

C JLAB  - 0 NOT  USED  FOR  THIS  CALL  5156 

C IPASS=N  INDICATES  EVERY  NTH  POINT  ON  THIS  CURVE  TO  NTH  POINT  OF  5157 

C PREVIOUS  CURVE  BE  CONNECTED.  5158 

C 5159 

COMMON  /MAXVAL/  UFOR.  UBACK.  VLEFT.  VRIGHT.  VBOT,  VTOP , THETA.  UAXIS.  VAX  I 5 1 60 

IS,  UVPLNE.  IU(2. 2) , I V(2. 2) , IV (2, 2) . JLAB  5161 

C 5162 

C MAXVAL  COMMON  IS  USED  FOR  DETERM  I NG  SCALES.  5163 

C UFOR=EXTREME  VALUE  OF  U FDR  FOREGROUND.  5164 

C UBACK=  EXTREME  VALUE  OF  U FOR  BACKGROUND.  5165 

C VLEFT=  LEFT  MOST  VALUE  OF  V.  5166 

C VRIGHT=  RIGHT  MOST  VALUE  OF  V 5167 

C VBOT=MIN  VALUE  OF  V.  5168 

C VTOP=MAX  VALUE  OF  V 5169 

C THETA= ANGLE  OF  OBLIQUE  AXIS  VITH  VERTICAL  (RADIANS).  NOTE-  IF  THI  5170 

C IS  ZERO.  THEN  PLOT  VILL  BE  TVO  DIMENSIONAL  VITH  U AND  V AXES  CO-  5171 

C INCIDENT.  5172 

C UAX IS=  VALUE  OF  V AT  VHICH  UAXIS  IS  TO  BE  DRAVN.  5173 

C VAXIS=  VALUE  OF  U AT  VHICH  V AXIS  IS  TO  BE  DRAVN.  5174 

C UVPLNE  = VALUE  OF  V AT  VHICH  UAXIS  AND  VAX  IS  INTERSECT.  5175 

C 5176 

DIMENSION  IXSAVC601 ),  IYSAV(60l)  5177 

DIMENSION  UA(NPT).  VA(NPT).  VA(NPT)  5178 

COMMON  MINYC1024)  ,MAXY( 1024)  5179 

LOGICAL  I OUT  5180 

C 5181 

C 5182 

NPTS=1RBS(NPT)  5183 
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C PRINT  8880,  UFDR,  UBRCK,  VLEFT,  VRIGHT.  WOT,  VTOP.  IPRSS,  NPTS  5 1 84 

C PRINT  1000,  U,  (VR(JJ),  VR(JJ),  JJ=l  ,NPT5)  5185 

IF  (IPRSS.GE.O)  GO  TO  50  5186 

IF  (IPRSS.  E0.  -2)  GO  TO  50  5187 

IF  (IPRS5.LE.-6)  GO  TO  250  5188 

C IF  FIRST  PR55,  RDVRNCE  FRRME,  SET  SCRLES.  RND  INITIRLIZE  MRX  RND  5189 

C MIN  FUNCTIONS . THE  FIRST  CURVE  TO  BE  PLOTTED  HILL  BE  THE  FRRTHES  5190 

C IN  THE  FOREGROUND.  SUCCEEDING  VRLUES  OF  U MUST  BE  EITHER  5191 

C RSCENDING  OF  DESCENDING.  5192 

C 5193 

CRLL  FRRMEV  (3)  5194 

C FIND  SCRLE  VRLUES  TO  MRKE  VRRIRBLES  PROPORT  I DNRL  5195 

UL N TH=RBS ( UF OR -UBRCK ) 5196 

VLNTH=RBS  ( VRIGHT-  VLEFT)  5 1 97 

HLNTH=RBS  ( HTDP-HBOT)  5198 

SCMIN=RMIN1  (ULNTH,  VLNTH,  VLNTH)  5 1 99 

SCRL  U=SCMIN/ULNTH  5200 

SCRL  V-SCMIN/VLNTH  5201 

SCRL  y=SCMIN/VLNTH  5202 

SCRL U=SCRL U*22.  /69.  5203 

IF  (IPRSS.  NE.  -3)  GO  TO  10  5204 

SCRLU=1.  5205 

SCRL  V=l.  5206 

SCRLV=1.  5207 

10  CONTINUE  5208 

ULNTH=ULNTHmSCRLU  5209 

DIFX=ULNTHmSIN(  THETR)  5210 

IF  (VRIGHT.  L T.  VLEFT)  OIFX=-DIFX  521 1 

IF  ( THETR.  CE.  0. 0)  GO  TO  20  5212 

XRIGHT=  VRIGHTmSCRL  V 5213 

XLEFT = VLEFT  mSCRL  V+DIFX  52 1 4 

GO  TO  30  5215 

20  CONTINUE  5216 

XLEFT=VLEFT mSCRL  V 5217 

XRIGHT=  VRIGHTmSCRL  V+DIFX  52 1 8 

30  CONTINUE  5219 

YTDP=(VTOP-VBOT)  mSCRL  V+ULNTHmCOS<  THETR )+VBOTmSCRL  V 5220 

YBOT=VBOTmSCRLV  5221 

YSCRLE-  YTOP-  YBOT  5222 

XSCRLE=RBS  ( XRIGHT -XLEFT)  5223 

CRLL  XSCRLV  (XLEFT, XRIGHT,  74, SO)  5224 

CRLL  YSCRLV  (YBOT,  YTOP, SO,  74)  5225 

DO  40  1=1,1024  5226 

MINY(  I )=1000  5227 

MRXY(I)=0  5228 

IF  (I.  GT.  500)  GO  TO  40  5229 

IXSRV(I  )=0  5230 

IYSRV(I)=0  5231 

40  CONTINUE  5232 

C CONSTRUCT  THE  RXES.  5233 

C 5234 

C (V  RXIS)  5235 

DEL U=RBS ( VRX IS -UFDR) mSCRL U 5236 

DX=DELUmSIN(  THETR)  5237 

IDE LX=(  DX/X SCRL  E ) m900.  5238 

DY=DELUmCOS(  THETR)  5239 

I DEL  Y=  (OY /YSCRLE)  m900.  5240 

I XI  =NXV(  VLEFTmSCRL  V)+IDELX  5241 

IYl=NYV(UVPLNEmSCRLH)+IOELY  5242 

IX2=NXV(  VRIGHTmSCRL  V) + 1 DEL  X 5243 

IY2=IY1  5244 

CRLL  LINEV  (1X1 , IY1 , 1X2,  IY2)  5245 

IV(l,l)=lXl  5246 

IV(2, 1)=IY1  5247 
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I V( 1.2)= 1X2  5248 

IV(2.2)=IY2  5249 

5250 

(U  RXIS)  5251 

1X1  =NXV(URX1S*SCRL  V) + IDE  LX  5252 

1X2=  IX 1 5253 

I Y 1 =NYV  (WBOThSCRLW  ) + 1 DEL  Y 5254 

1 Y2=NYV(y TDPxSCRL  V) + 1 DEL  Y 5255 

CRLL  LINE V ( 1X1 . IY1 . 1X2.  IY2)  5256 

IV<1.1)=IX1  5257 

1)4(2. 1)=IY1  5258 

1 V< 1.2) =1X2  5259 

IV(2,2)=1Y2  5260 

5261 

(U  RXIS)  5262 

5263 

IX 1 =NXV(URXISmSCRL V)  5264 

I Y1  =NYV(UVPL  NExSCRL  V)  5265 

Y2=ULNTH*C0S(  THETR)  +UVPLNE*SCRL  V 5266 

X2=DIFX +URX ISxSCRL  V 5267 

IX2=NXV(X2)  5268 

IY2=NYV(Y2)  5269 

CRLL  LINEV  (IXI.  IY1. 1X2.  IY2)  5270 

IU(1.1)=IX1  5271 

IU(2, 1)=IY1  5272 

IU(1.2)=IX2  5273 

IU<2.2)=IY2  5274 

C 5275 

50  CONTINUE  5276 

U=UR(1)  5277 

I0UT=.  TRUE.  5278 

ICOUN T = ICOUN T+l  5279 

J=NPTS+1  5280 

DO  170  JJ=1.NPTS  5281 

IF  (THETR)  60.  70.  70  5282 

60  J=JJ  5283 

GO  TO  80  5284 

70  J=J-I  5285 

80  CONTINUE  5286 

IF  (NPT.LT.O.)  U=UR(J)  5287 

IF  (NPT.GT.0.RND.JJ.GT.1)  GO  TO  90  5288 

DEL U=RBS ( U-UFOR) *SCRL U 5289 

DX=DELU*SIN(  THETR)  5290 

IDELX=(DX/XSCRLE)*900.  5291 

0 Y=DEL U*C0S ( THETR)  5292 

I DEL  Y=(DY/YSCRLE)*90Q.  5293 

90  CONTINUE  5294 

1X2=  IX V(  VR(J)*SCRL  V)+IDELX  5295 

I Y2=l  YV(VR<J)mSCRL  y)+IDEL  Y 5296 

IF  ( IPRSS.LE.O ) GO  TO  140  5297 

IF  ( M0D(  J- 1 . IPRSS) . NE.  0)  GO  TO  140  5298 

NX=IRBS( IX2-IXSRV(J))  5299 

IF  (NX.EQ.O)  NX=1  5300 

INCX=1  5301 

IF  (IXSRV( J).  GT.  1X2)  INCX=-1  5302 

DX=NX  5303 

DY=IY2-IYSRV(J)  5304 

RRTIO=DY/DX  5305 

IYST=IYSRV(J)  5306 

IX=IXSRV(J)  5307 

IN=0  5308 

DO  130  1=1.  NX  5309 

IX=IX+INCX  5310 

IY=IYST+IxRRTIO  5311 
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IF  (IY.LE.  MRXY(IX) . RND.  I Y.  GE.  MINY(IX) ) GO  TO  100  5312 

IN=0  5313 

GO  TO  120  5314 

100  IF  ( IN.  E0. 1 . OR.  I.  EQ.  1 ) GO  TO  110  5315 

IXCK=IX5RV(J)  5316 

IF  (IY.  GT.  MRXY(IX).  RND.  IYSRV(J).  L T.  MRXY(IXCK))  IY5RV(J)=MRXY( IXCK)  5317 

CRLL  LINEV  ( IXSRV(J).  IYSRV(J).  IX.  IY)  5318 

110  IX5RV(J)=IX  5319 

IY5RV(J)=IY  5320 

IN=1  5321 

120  CONTINUE  5322 

MRXY(IX)=MRXO(IY,MRXY(IX))  5323 

MINY(IX)=MINO(IY.MINY(IX))  5324 

130  CONTINUE  5325 

IF  (IN.EQ.O)  CRLL  LINEV  (IXSRV(J).  IYSRV(J).  1X2.  IY2)  5326 

140  CONTINUE  5327 

IF  (IPR55.  NE.  -2)  GO  TO  160  5328 

IF  (JJ.EQ.l)  GO  TO  150  5329 

CRLL  LINEV  ( 1X1 . IY1 , 1X2.  IY2)  5330 

150  CONTINUE  5331 

IX 1=1X2  5332 

IY1=IY2  5333 

IF  (JJ.NE.NPTS)  GO  TO  170  5 334 

RETURN  5335 

160  CONTINUE  5336 

IXSRV(J)=IX2  5337 

IYSRV(J)=IY2  5338 

1 70  CONTINUE  5339 

IX1=IXV(VR(1)*SCRLV)+IDELX  5340 

IY1=IYV(WR(  1 )*SCRLV)+IDEL  Y 5341 

IF  (IY1.LT.  MRXY  ( I XI ) . RND.  IY1.GT.  MINY(  I XI ) ) IOUT=.FRL5E.  5342 

DO  230  J=2.NPTS  5343 

IX2=IXSRV(J)  5344 

IY2=IYSRV(J)  5345 

NX=IRB5  ( 1X2- 1 XI ) 5346 

IF  (NX.EQ.O)  NX=1  5347 

INCX=J  5348 

IF  (IX2.LT.  I XI)  INCX=-1  5349 

DX=NX  5350 

DY=IY2-IY1  5351 

RRTIO=DY/DX  535? 

IX=IX1  5353 

IY5T=IY1  5354 

DO  210  K=1.NX  5355 

IX=IX+INCX  5356 

IY=IYST+K*RRTIO  5357 

INDX=IX  5358 

MXY=MRX  Y ( INDX)  5359 

MNY=MINY(  INDX)  5360 

IF  (I  Y.  L T.  MXY.  RND.  I Y.  GT.  MNY)  GO  TO  180  536 1 

IOUT=.  TRUE.  5362 

GO  TO  200  5363 

180  CONTINUE  5364 

IF  (.  NOT.  IOUT)  GO  TO  190  5365 

CRLL  LINEV  ( I XI . IY1 . IX.  IY)  5366 

190  CONTINUE  5367 

IOUT=.  FRL5E.  5368 

1X1=  IX  5369 

IY1=IY  5370 

200  CONTINUE  5371 

MRXY(  INDX)=MRXO(  I Y,  MXY)  5372 

MI  NY  (INDX)  =MINO(I  Y.  MNY)  5373 

210  CONTINUE  5374 

IF  (.NOT.  IOUT)  GO  TO  220  5375 
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CALL  LINEV  ( IX 1 . IY1 . 1X2.  IY2)  5376 

220  CONTINUE  5377 

IND1=IX1  5378 

MAX  Y(INOI)  =MAX 0(1  Y1 , MAXYdNDl ) ) 5379 

MI  NY  ( IND1 ) =MINO  ( I Yl . MINY(INDl))  5380 

IX 1=1X2  5381 

IYI=IY2  5382 

230  CONTINUE  5383 

IF  (JLAB.EO.O)  GO  TO  240  5384 

C PRINT  HOLER  I TH  JLAB  5385 

IXL=IXV(VRIGHT*SCALV)+IDELX+8  5386 

IYL=IDELY+IYV(VBOT*SCALV)  5387 

CALL  PR  INTV  (8,  JLAB.  I XL,  IYL)  5388 

CALL  LINE2V  ( IXL-12,  IYL-1 .5.0)  5389 

CALL  LINE2V  ( IXL-12.  IYL-1. 5.0)  5390 

240  CONTINUE  5391 

RETURN  5392 

250  CONTINUE  5393 

ILAB=0  5394 

IF  (IPASS.  EQ.  -8)  GO  TO  320  5395 

DEL U=ABS ( UBACK-UFDR) *SCAL U 5396 

DX=DELUmSIN<  THETA)  5397 

IDELX=(DX/XSCALE)*900.  5398 

D Y=DEL U*COS( THE TA)  5399 

IDELY=(DY/YSCALE)*900.  5400 

IF  ( IPASS.  EQ.  - 7)  GO  TO  280  5401 

DELU=VA(1)  5402 

XD=AMAX1 ( ABS (U TOP),  AB5 ( WBO T))  5403 

NDL =NDMAX ( XD)  5404 

NDIG=MAX0(5.  NDL ) 5405 

U=WBOT  5406 

IX1=NXV(  VLEFTmSCAL  V)+IDELX  5407 

IX2=NXV(  VRIGHTxSCAL  V)+IDELX  5408 

260  I Yl  =NYV ( W*SCAL  \D+IDEL  Y 5409 

1Y2=IY1  5410 

CALL  LINEV  (1X1 . IY1 . 1X2.  IY2)  5411 

IF  (MODdLAB.  NPT5) . NE.  0)  GO  TO  270  5412 

CALL  LABLV  (I/.  IX 1-52.  IY1.NDIG.  l.NDL)  5413 

CALL  LABLV  (V.  1X1-52.  IY1.NDIG,  l.NDL)  5414 

270  CONTINUE  5415 

ILAB=ILAB+1  5416 

V=V+DELy  5417 

IF  ( U.GT.VTDP ) GO  TO  240  5418 

GO  TO  260  5419 

280  CONTINUE  5420 

DEL  V=VA(1)  5421 

V=VLEFT  5422 

VR=VRIGHT+.01*(VRIGHT-VLEFT)  5423 

290  IX1=NXV(V*SCALV)+IDELX  5424 

I Y2=NYV(VT0P*SCAL U)+IDEL  Y 5425 

I Y1=NYV( WBO T *SCAL H)+IDEL  Y 5426 

1X2= IX 1 5427 

IX3=IX1-IDELX  5428 

IY3=IY1-IDELY  5429 

CALL  LINEV  (I XI . IY1 . 1X2,  IY2)  5430 

IF  (MODdLAB, NPT5).NE.O)  GO  TO  300  5431 

CALL  LABLV  (V,  1X2-28.  IY2+6.NDIG.  1 , NDL)  5432 

CALL  LABLV  (V.  1X2-28,  IY2+6.NDIG,  l , NDL)  5433 

CALL  LABLV  (V,  1X3-28,  IY3-6.NDIG,  1 , NDL)  5434 

CALL  LABLV  (V,  1X3-28.  IY3-6.NDIG.  l.NDL)  5435 

300  CONTINUE  5436 

ILAB=ILAB+1  5437 

V=V+DELV  5438 

IF  (VRIGHT.GT.  VLEFT)  GO  TO  310  5439 
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IF  (V.LT,  VR)  CO  TO  240  5440 

GO  TO  290  5441 

310  IF  (V.GT.  VR)  GO  TO  240  5442 

GO  TO  290  5443 

320  CONTINUE  5444 

UB=UBRCK+.  01 *( UBRCK-UFOR)  5445 

ULRB=UFOR  5446 

330  CONTINUE  ' 5447 

DELRB=RBS(ULRB-UFQR)mSCRLU  5448 

DX=DELRB*SIN(THETR)  5449 

DY=DELRB*COS(THETR)  5450 

IDELX=(DX/XSCRLE)*900.  5451 

IDELY=(DY/YSCRLE)*900.  5452 

I XI  =NXV(  VLEFTmSCRL  V)+IDELX  5453 

1X2=NXV(VR1GHT*SCRLV)+WELX  5454 

IY 1 -NYV  (VBOT*SCRL\f ) + 1DEL  Y 5455 

C CRLL  POINTVdXl.  IY1.6.RNY)  5456 

C CRLL  POINTV<  1X2,  IY1.6,  RNY)  5457 

IF  <MOD( ILRB,  NPTS).  NE.  0)  GO  TO  340  5458 

C CRLL  LRBLVWLRB.  1X1-45.  IY1.5. 1.4)  5459 

C CRLL  LRBLVTULRB.  1X1-45,  IY1.S. 1.4)  5460 

ICH=4  5461 

IF  (RBS(ULRB) . GT.  9.  > ICH=5  5462 

IF  (RBS(ULRB).  GT,  99.  ) ICH=6  5463 

CRLL  LRBLV  (ULRB.  1X2+4.  IY1.  ICH.l,  ICH-2)  5464 

CRLL  LRBLV  (ULRB,  1X2+4.  IY1.  ICH.l.  ICH-2)  5465 

340  ILRB=ILRB+1  5466 

ULRB=ULRB+VR( 1 ) 5467 

IF  (UBRCK.  L T.  UFOR)  GO  TO  350  5468 

IF  (ULRB.  GT.  UB)  GO  TO  240  5469 

GO  TO  330  5470 

350  IF  (ULRB.LT.UB)  GO  TO  240  5471 

GO  TO  330  5472 

C 5473 

END  5474 

FUNCTION  NDMRX(X)  5475 

C 5476 

C 5477 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  5478 

C THIS  FUNCTION  RETURNS  THE  MRXIMUM  DECIMRL  SCRLE  NEEDED  5479 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  5480 

C 5481 

C 5482 

C FOR  USE  VITH  LRBLV  5483 

RX=RBS(X)*10.  +.  01  5484 

DIG=RL0G10(RX>  5485 

NDHRX=D1G  5486 

IF  (DIG.LT.O)  NDMRX=0  5487 

IF  (NDMRX.GT.6)  NDMRX=6  5488 

RETURN  5489 

END  5490 

SUBROUTINE  FRRMEV  (IRRG)  5491 

DRTR  IK/O/  5492 

IK=IK+1  5493 

IF  (IK.EQ.  1)  CRLL  GSIZE  (200. . It. . 1100)  5494 

IF  (IK.EQ.  1)  CRLL  PLOT  (0. . 0. 5.  -3)  5495 

IF  (IK.  GT.  1 ) CRLL  PLOT  (10.  .0.0.  -3)  5496 

VRITE  (6.10)  5497 

RETURN  5498 

C 5499 

10  FORMRTdOX.  1SH  FRRMEV  CRLLEO  ) 5500 

END  5501 

SUBROUTINE  L INE V (II , 12. 13, 14)  5502 

DRTR  MI 3.  MI 4/0.0/  5503 
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IP=0  5504 

IF  (Il.EQ.MI3.mD.I2.EQ.MI4)  IP=1  5505 

XI =11/102. 3 5506 

X2= 13/102. 3 5507 

Y1 =12/102.  3 5508 

Y2=I4/102.  3 5509 

IF  ( IP.EQ.O ) CRLL  PLOT  (X1.Y1.+3)  5510 

COLL  PLDT  (X2.Y2.+2)  5511 

MI 3= 13  5512 

MI 4= 1 4 5513 

RETURN  5514 

END  5515 

SUBROUTINE  PLDT  (R.  B.  I PL  ) 5516 

COMMON  /XI/  IZ  5517 

IZ=16  5518 

IF  (IPL.EQ.999)  CRLL  CLRSS  (4. 3. 0.0)  5519 

IF  (IPL.EQ.999)  CRLL  CRLCMP  (0.  ,0.  .9999.2)  5520 

IF  (IPL.EQ.-3)  CRLL  CRLCMP  (0.  .0.  .0000.2)  5521 

IF  (IPL.EQ.2)  CRLL  CRLCMP  (R.B.IZ.l)  5522 

IF  (IPL.EQ.3)  CRLL  CRLCMP  (R.B.O.l)  5523 

RETURN  5524 

END  5525 

SUBROUTINE  GS I ZE  (RR1.RR2. 1 XX)  5526 

LDEV=8  5527 

CRLL  CRLCMP  (0.  .2.  .LDEV.O)  5528 

CRLL  CLRSS  (1.3. 0.0)  5529 

RETURN  5530 

END  5531 

SUBROUTINE  DXDYVdl . RLEFT.  RRICHT.  DX.  12. 13. 14. 15. 16)  5532 

DX=(  RR I GH  T-RL  EFT)/] 0.  5533 

RETURN  5534 

END  5535 

SUBROUTINE  PL0TV(I1 . 12. 13)  5536 

RETURN  5537 

END  5538 

SUBROUTINE  PRINTVdl.  R.  12. 13)  5539 

RETURN  5540 

END  5541 

SUBROUTINE  CHSIZV( 1 1.12)  5542 

RETURN  5543 

END  5544 

SUBROUTINE  RI  TE2V(U.  12. 13. 14. 15. 16. 1 7.  R.  19)  5545 

RETURN  5546 

END  5547 

SUBROUTINE  XSCRL  V(R.  B.  11. 12)  5548 

RETURN  5549 

END  5550 

SUBROUTINE  YSCRLV(R,B,  1 1. 12)  5551 

RETURN  5552 

END  5553 

SUBROUTINE  LRBL  V(R.  11.12. 13. 14. 15)  5554 

RETURN  5555 

END  5556 

SUBROUTINE  LINE2V(I1. 12. 13. 14)  5557 

RETURN  5558 

END  5559 

FUNCTION  IXV(R)  5560 

IXV=0  5561 

RETURN  5562 

END  5563 

FUNCTION  IYV(R)  5564 

IYV=0  5565 

RETURN  5566 

END  5567 
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FUNCTION  NXV(R)  5568 

NXV=0  5569 

RETURN  5570 

END  5571 

FUNCTION  NYV(R)  5572 

NYV=0  5573 

RETURN  5574 

END  5575 

C/  5RR00894, 03.  G61K) . 09999FEL DMRN,  MSGLEVEL =1 . 5576 

C/  CLRSS=D,REGI0N=512K.  TIME=10  5577 

C/  EXEC  F TGINCGO.  PGMN0=SRR00894 . 0 VERL R Y=OVL  Y 5578 

C/SYS  IN  DO  * ( 5579 

C*  ' 5580 

C/LNK.SYSLIN  DO  * 5581 

CINCLUDE  5Y5TF0RT  5582 

CINCLUDE  FOR TEPD5 ( SRR00894 ) 5583 

OVERLRY  Th/O  5584 

INSERT  DR  I VER.  INPUT.  GEDM.  BOUND.  OBL  OUE.  PLRTE.  SPEC.  HULLPl . HULLP2  5585 

INSERT  TMESTP.  CURRNT.  OUTPUT.  GRRPH.  DIGPL  T.  PRTPL  T.  EFIELD.  BNDPQT,  CUR.  DFSN  5586 

INSERT  TEMDIF,  VIS.  TRIO.  KSVEEP,  JSHEEP . GRMM.  SIG.  BETR.  CP.  RGRS.  COND.  CV  5587 

INSERT  EDDY.B  5588 

INSERT  CRRRRY.  GRRVTY.  CTIME.  CMRTRX.  CSTDRE.  CSTRSS.  CMRGN.  ETRODE  5589 

OVERLRY  WO  5590 

INSERT  PLOTTE.  RDPL  T.  LRBPL  T.  NXVOSB.  LEVEL . POINT.  DRRiV.  TRUN.  RRROIV.  PRRTCL  559 1 

INSERT  CELL . PLOT3D.  FRRMER.  GRIDS.  SHRDE.  THREED.  PL  TMTX.  PL  T3D1 . NDMRX  5592 

INSERT  PI . P2.  P3.  P4  5593 

ENTRY  MRIN  5594 

C m 5595 

C/GO.  FT08F001  DO  UNI  T=2400.  DISP=  ( . KEEP) , DSN=yPL  1 . DCB=DEN=2.  L RBEL =(.BLP)  5596 

C/GO.  FT 1 4F001  DD  UNI  T=UORK,  SPRCE=  (C  YL . <5. 5) . RL  SE. . ROUND) . 5597 

C/  DCB=RECFM= VBS  5598 

C/GO.  FT05F001  DD  * 5599 

EOT  5600 
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Symbol 

A 

A 

A 

B 

B 

B 


B 

x 

C 

C 


D 

E 


e 

F 

F 

m 

g 

gz 

gr 

h 

H 

a 


NOMENCLATURE 

Description 

Elliptic  equation  coefficient/finite  difference  coefficient 

Prandtl  Mixing  Length  coefficient 

Area 

Elliptic  equation  coefficient/finite  difference  coefficient 

Magnetic  induction  vector 

Radial  magnetic  induction 

Axial  magnetic  induction 

Aximuthal  magnetic  induction 

Elliptic  equation  coefficient/finite  difference  coefficient 
Shock  velocity 

Speed  of  sound/electrode  thickness 
Specific  heat  at  constant  pressure 
Specific  heat  at  constant  volume 
Finite  difference  coefficient 
Electric  field  vector 
Total  energy  per  unit  mass 
Scalar  quantity  representing  <f>  or  ifj 
Mass  flux 

Gravitational  acceleration  vector 
Axial  gravitational  acceleration 
Radial  gravitational  acceleration 
Channel  width 
Hartmann  number 
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Symbol 

I 

i 

j 

Jr 

3 z 

K 

L 

M 

M 

M 

r 

M 

z 

Me 

n 


P 

P 

q 


r 

Re 

Re 


m 


S 

t 

T 

U 


u 

v 

V 


Description 

Current 

Internal  energy  per  unit  mass 

Current  vector 

Radial  current 

Axial  current 

Load  factor 

Differential  operator 

Mass 

Mach  number 

Radial  magnetic  flux 

Axial  magnetic  flux 

Aximuthal  magnetic  flux 

Unit  vector  normal  to  surface 

Dimensionless  pressure 

Pressure 

Heat  flux  vector 

Radial  coordinate 

Reynolds  number 

Magnetic  Reynolds  number 

Electrode  + Insulator  thickness 

Time 

Temperature 

Particle  velocity 

Scalar  velocity  in  axial  direction 

Velocity  vector 

Scalar  velocity  in  radial  direction 


367 


AEDC-TR-77-105 


Symbol 

X 

y 

z 

a 


6 

Y 


£ 

£ 


A 

A 

A 


2 

E 


t 


a 


P 

a 


T 

T 


y 

y 

y 


E 

P 


U) 


Description 
Cartesian  coordinate 

Cartesian  coordinate 

Axial  or  Cartesian  coordinate 

Coordinate  system;  Cartesian  = (0) ; axisymmetric  = (1) 

Hall  parameter 

Boundary  layer  thickness 

Specific  heat  ratio 

Integration  parameter;  explicit  = (0);  implicit  = (1) 

Strain  element 

Prandtl  mixing  length 

Thermal  conductivity 

Thermal  conductivity  (turbulent) 

Electrical  conductivity  tensor 
Density 

Scalar  conductivity 

Scalar  conductivity  corrected  for  Hall  current 

Electrical  potential 

Current  stream  function 

Viscous  and/or  magneto  stress  tensor 

Stress  element 

Aximuthal  coordinate 

Laminar  viscosity 

Eddy  viscosity 

Magnetic  permeability 

Relaxation  Parameter 
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Symbol  Description 

Superscripts 

n Time  cycle 


Vector 

p 

Tensor 

Subscripts 

i 

Radial  index 

j 

Axial  index 

's 

Isentropic 

rr 

r face,  r direction 

w 

wall 

zz 

z face,  z direction 

00 

0 face,  0 direction 

rz 

r face,  z direction 

oo 

infinity 

Mathematical 

Operators 

3t  Partial  derivative 

d__ 

dt  Total  derivative 

V ’’Del"  operator 

• Vector  ’’dot”  product 

x Vector  ’’cross”  product 

A Finite  change 
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